Информатика, вопрос задал heYOhey , 9 лет назад

Найти сумму квадратов всех целых чисел от a до 50 (a вводится с клавиатуры);

Ответы на вопрос

Ответил krivenkoyuriyv
0
могут быть ошибки, забей в паскале, поправь
var a,b:integer
begin
a:=0;
b:=0;
readln (a);
if a<51 do
b:=a*a+b
a:=a+1
end;
writeln (b);
end.
Ответил heYOhey
0
Написать программу Pascal
Ответил krivenkoyuriyv
0
var a
Ответил krivenkoyuriyv
0
ой, случайно написал.
Ответил krivenkoyuriyv
0
var a
Новые вопросы