Найти проищведение чётных чисел в диапозоне от 30 до 50. Паскаль. Для 9 класса (без массивов)
Uses crt;vari : integer; p: integer;beginp := 1;for i := 30 to 50 doif((i mod 2) = 0) thenp := p * i;writeln;writeln( Результат: , p);end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
