Составить программу на 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
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы