Помогите с написанием программы!Нужно написать программу в Паскале. Найти сумму а1+2а2+3а3+..+8а8
Ответы
Ответ дал:
0
program sum;
uses crt;
var
a,r:real;
i:integer;
begin
clrscr;
r:=0;
writeln('Vvedite chislo a: ');
read(a);
for i:=1 to 8 do r:=r+(i*a*i);
writeln('Otvet: ',r);
end.
uses crt;
var
a,r:real;
i:integer;
begin
clrscr;
r:=0;
writeln('Vvedite chislo a: ');
read(a);
for i:=1 to 8 do r:=r+(i*a*i);
writeln('Otvet: ',r);
end.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
10 лет назад
10 лет назад
10 лет назад