Информатика, опубликовано 2018-08-22 19:31:49 by Гость
Написать программу значения вырадения (1+2)*(1+2+3)*(1+2+3+4+5) и т.д до 10.В Pascal ABC
Ответ оставил Гость
Var s,i:integer; p:real;
begin
s:=1; p:=1;
for i:=2 to 10 do
begin
s:=s+i;
p:=p*s;
end;
writeln(p = ,p)
;end.
Результат:
p = 141455160000
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.