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

Question

Информатика

Даша

25 ноября, 08:36

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

+3

Ответы (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.