Информатика, опубликовано 2018-08-22 18:31:09 by Гость
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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на