Найти проищведение чётных чисел в диапозоне от 30 до 50. Паскаль. Для 9 класса (без массивов)

Question

Информатика

Христинка

29 ноября, 08:36

Найти проищведение чётных чисел в диапозоне от 30 до 50. Паскаль. Для 9 класса (без массивов)

+4

Ответы (1)

Знаете ответ?

Масята · Answer 1

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.