Информатика, опубликовано 2018-08-22 21:59:50 by Гость
Составить программу на 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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на