Найти проищведение чётных чисел в диапозоне от 30 до 50. Паскаль. Для 9 класса (без массивов)
Ответы на вопрос
Ответил Milsen
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
Ничего, кроме переполнения при умножении целых и неверного ответа Вы не получите.
Новые вопросы