Помогите пожалуйстаааа !!!!!!найдите сумму квадратов всех целых чисел от а до 10.Значение а вводится с клавиатуры.Предусмотрите проверку корректности ввода (а<10)
Var i,summ,a:integer;
begin
read(a);
for i:=a to 10 do
summ:=summ+i*i;
write(summ);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
