Помогите с написанием программы! Нужно написать программу в Паскале. Найти сумму а1+2 а2+3 а3 + ... + 8 а8

Question

Информатика

Христина

2 мая, 23:20

Помогите с написанием программы! Нужно написать программу в Паскале. Найти сумму а1+2 а2+3 а3 + ... + 8 а8

+5

Ответы (1)

Знаете ответ?

Элла · Answer 1

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.