Рассчитать и вывести произведение чисел от 1 до 30
Рассчитать и вывести произведение чисел от 1 до 30
Гость
Ответ(ы) на вопрос:
Гостьprogram oneTO30
var
h:integer;
BEGIN
for int i:=2 to 30 do
h:=h*i;
writeln(h); \\или readln ... забыл
END.
Гостьvar i: integer; begin for i:= 1 to 30 do writeln(i);end.
Вот код вывода чисел от 1 до 30, либо я не понял вопроса, либо вам дорога не в программирование
Не нашли ответ?
Похожие вопросы