Ответы
Ответ дал:
0
uses crt;
var
i : integer; p: integer;
begin
p := 1;
for i := 30 to 50 do
if((i mod 2) = 0) then
p := p * i;
writeln;
writeln(' Результат: ', p);
end.
Ответ дал:
0
Ничего, кроме переполнения при умножении целых и неверного ответа Вы не получите.
Вас заинтересует
2 года назад
10 лет назад
10 лет назад