Const
n=6;
Type vector=array[1..n] of integer;
var x:vector;
i:integer;
pr:extended;
begin
<u>pr:=1;</u>
for i:=1 to n do
begin
readln(x[i]);
if x[i] mod 17=0 then
pr:=pr*x[i];
end;
writeln('proizvedenie= ',pr:4:4);
readln;
<span>end.</span>
<span>1
2
3
4
5
6
7
8
9
10
11
12
<span>uses crt;
var a,c,h,s,x:real;
begin
clrscr;
writeln('Введите длины большего основания, боковой стороны и высоты ');
writeln('равнобедренной трапеции:');
readln(a,c,h);
x:=sqrt(c*c-h*h);
s:=(a-x)*h;
write('Площадь=',s:0:2);
readln
end.</span></span>
Мальчик1=м1 мальчик2=м2
мужык=М
1 шаг
М м1,м2
2 шаг
М,м1 м2
3 шаг
м1 М,м2
4 шаг
м1,м2 М
5 шаг
(пустота) м1,м2,М
5*20=100 минут
354
235, 15
472, 35
417, 165
317, 35