Паскаль
Найти произведение четных натуральных чисел, меньших 100
var x,y:integer;
Begin
x:=2;
y:=1;
while x<>100 do
Begin
y:=y*x;
x:=x+2;
end;
write(y);
End.
Числа меньше ста, все правильно. Не понял причину, почему модератор отправил на доработку.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
