Gragar
7 год назад
Составить программу на Pascal, цикл "для".
Вычислить 0,1 x + 0,3 x + 0,5 x +…+ 2,1 x
ОТВЕТЫ
Naka
Jul 11, 2019
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.
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.
269
Смежные вопросы:
