Question

Найдите сумму квадратов всех целых чисел от а до 10. Значение а вводится с клавиатуры. Предусмотрите проверку корректности ввода (а<10). Написать
программу во 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.

Answer 2

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

Answer 3

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