Найти произведение чисел от 1 до тех пор пока - вопрос №174527331100 от lluciferr01 19.01.2022 03:15

Question

Информатика: Найти произведение чисел от 1 до тех пор пока произведение не станет больше 1000​ ( на языке Паскаль )​

lluciferr01 · Answer

1.var i,n,s:integer; 2.begin 3.readln(n); 4.s:=1; 5.for i:=1 to n do 6.s:=s*i; 7.writeln(s); 8.end. Объяснение:...

Найти произведение чисел от 1 до тех пор пока произведение не станет больше 1000​ ( на языке Паскаль )​