Найти сумму квадратов чисел от 1 до 10 программа free pascal
Найти сумму квадратов чисел от 1 до 10 программа free pascal
Гость
Ответ(ы) на вопрос:
Гостьprogram summakvadratov (input, output);
var I, a:integer;
begin
a:=0;
for I:=1 to 10 do
a:=a+sqr(I);
writeln (a);
end.
Не нашли ответ?
Похожие вопросы