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

Найти сумму квадратов всех целых чисел от a до 50 (a вводится с клавиатуры);
Гость
Ответ(ы) на вопрос:
Гость
Могут быть ошибки, забей в паскале, поправь 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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы