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