Var
i, p: integer;
begin
p := 2;
for i := 3 to 7 do p:=p*i;
Writeln('Произведение равно ',p);
end.
<em><u>Тестовое решение:</u></em>
Произведение равно 5040
Var
a: array[-10..10] of real;
i: integer;
begin
for i := -10 to 10 do begin
Read(a[i]);
a[i] := a[i] / 10;
Write(a[i]+' ');
end;
end.
Bsjdnwbsjdwkskavdjclskwbsdjbw d fudjsjxornd f fir dnciebdidjwndpdje
Возможно я не прав но вот
а) 111101
б) 010111
в) 111011010
г) 100000
Клаустрафобия-боязнь тесноты