Информатика, опубликовано 2018-08-22 20:06:57 by Гость
Цикл "Для". Написать программу 1)Найти сумму квадратов целых чисел от 1 до 100.
Ответ оставил Гость
Var
i, sum: longint;
begin
for i := 1 to 100 do sum := sum + sqr(i);
write(sum);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.