Харлампий
7 год назад
Рассчитать и вывести произведение чисел от 1 до 30
ОТВЕТЫ
Vahonel
Jul 17, 2019
var i: integer; begin for i:= 1 to 30 do writeln(i);end.
Вот код вывода чисел от 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
h:integer;
BEGIN
for int i:=2 to 30 do
h:=h*i;
writeln(h); \\или readln ... забыл
END.
182
