Предмет: Информатика,
автор: Marmar21
Составьте программу вычисления суммы
Приложения:

Ответы
Автор ответа:
0
for i:=1 to n do s:=s+i*a; Сумматор s необходимо обнулить перед началом цикла, все переменные объявить и записать цикл выше.
Программа на паскале:
var a,n,I:integer;
begin
writeln('Введите число n и число a');
readln(n,a);
s:=0;
for I:=1 to n do s:=s+i*a;
writeln('Сумма равна ',s);
end.
n-число перед а.
Программа на паскале:
var a,n,I:integer;
begin
writeln('Введите число n и число a');
readln(n,a);
s:=0;
for I:=1 to n do s:=s+i*a;
writeln('Сумма равна ',s);
end.
n-число перед а.
Похожие вопросы
Предмет: Литература,
автор: matemati4ka35
Предмет: Математика,
автор: karsybaevarabiga549
Предмет: Математика,
автор: nsasa8978
Предмет: История,
автор: 513882
Предмет: Математика,
автор: DashLatte1