1)Напишите программу которая вычисляет сумму квадратов первых n-натуральных чисел
1)Напишите программу которая вычисляет сумму квадратов первых n-натуральных чисел.2)Вводится последовательность целых чисел. Последовательность оканчивается нулём,вывести максимальное число Срочно!
Гость
Ответ(ы) на вопрос:
Гость 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.
Не нашли ответ?
Похожие вопросы