Найти сумму квадратов чисел от 1 до 10 программа free pascal

Question

Dzhakord

Информатика

1 октября, 01:47

Найти сумму квадратов чисел от 1 до 10 программа free pascal

+4

Ответы (1)

Знаешь ответ на этот вопрос?

Трофи · Answer 1

program n1;

var i, s:integer;

begin

s:=0;

for i:=1 to 10 do s:=s+i*i; / /пошагово прибавляем квадрат каждого из чисел меньше 10

writeln (s);

end.

Ответ: 385.