Напишите пожалуйста код программы в Pascal,которая вычисляет квадрат суммы первых N чисел.Количество чисел (N) следует запросить у пользователя.
Напишите пожалуйста код программы в Pascal,которая вычисляет квадрат суммы первых N чисел.Количество чисел (N) следует запросить у пользователя.
Гость
Ответ(ы) на вопрос:
ГостьVar
i,n,a:integer;
Begin
Writeln('Введите число');
Readln(n);
for i:= 1 to n do
a:=a+i;
Writeln('Квадрат суммы этих чисел равен ',sqr(a));
End.
Не нашли ответ?
Похожие вопросы