1)Напишите программу которая вычисляет сумму квадратов первых n-натуральных...

Question

1)Напишите программу которая вычисляет сумму квадратов первых n-натуральных чисел.2)Вводится последовательность целых чисел. Последовательность оканчивается нулём,вывести максимальное число Срочно!

Answer 1

Var
  n,i,s:integer;
Begin
  write('Введите число n: ');
  Readln(n);
  for i:= 1 to n do
  s:=s+sqr(i);
  write(s);
End.

2.
Var
  a,max:integer;
Begin
  repeat
  write('Введите число ');
  Readln(a);
  if a>max then max:=a;
  until a=0;
  write(max);
End.

Comments

со вторым проблема постоянно пишет введите число, так должно быть ?

---

Все понял спасибо большое