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

Question

Информатика

Филофей

11 апреля, 03:13

Найти проищведение чётных чисел в диапозоне от 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.