Составить программу на Pascal, цикл "для".

Вычислить 0,1 x + 0,3 x + 0,5 x + ... + 2,1 x

Question

Информатика

Вениаминка

24 мая, 08:59

Составить программу на Pascal, цикл "для".

Вычислить 0,1 x + 0,3 x + 0,5 x + ... + 2,1 x

+1

Ответы (1)

Знаете ответ на вопрос?

Эльвирка · Answer 1

Program n1;

var x, a, S: real; i: integer;

begin

readln (x) ;

S:=0;

for i:=0 to 21 do

begin

a: = (i/10) * x;

S:=a+S;

end;

writeln (S) ;

end.

Составить программу на Pascal, цикл "для".Вычислить 0,1 x + 0,3 x + 0,5 x + ... + 2,1 x

Составить программу на Pascal, цикл "для".

Вычислить 0,1 x + 0,3 x + 0,5 x + ... + 2,1 x