Question

СОСТАВИТЬ БЛОК-СХЕМУ: НАЙТИ ПРОИЗВЕДЕНИЕ ЧИСЕЛ ОТ 25 ДО 70! СРОЧНОООООООО!!!

Answer 1

var i,s:integer;

Begin

s:=25;

for i:=26 to 70 do s:=s*i;

writeln(s);

end.

Нажми, что