Информатика, опубликовано 2018-08-22 20:24:54 by Гость
Составьте программу, которая находит сумму квадратов чисел от 1 до 10 подскажите пожалуйста))))
Ответ оставил Гость
Var i, s: integer;
begin
For i:= 1 to 10 do
s:= s+ sqr(i);
write(s);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.