Меркурий
6 год назад
Составьте программу вычисления суммы
ОТВЕТЫ
Фотий
Aug 12, 2019
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-число перед а.
250
Смежные вопросы:
