Найдите сумму квадратов всех целых чисел от а до 10. Значение а вводится с клавиатуры....

Question

Найдите сумму квадратов всех целых чисел от а до 10. Значение а вводится с клавиатуры. Предусмотрите проверку корректности ввода (а<10). Написать<br> программу во Free Pascal

Answer 1

Var
  i,a,s:integer;
begin
  Write('Введите целое число, не превыщающее 9; ');
  Read(a);
  if a>9 then Writeln('Вы нарушили условие')
  else begin
    s:=0;
    for i:=a to 10 do s:=s+i*i;
    Writeln('Искомая сумма равна ',s)
    end
end.

Comments

Спасибо большое!

---

Пожалуйста. Замечу, что для "Спасибо" тут рядом есть специальная кнопочка.