Дано вещественное число — цена 1 кг конфет. Вывести стоимость 0.1, 0.2, … , 1 кг
Дано вещественное число — цена 1 кг конфет. Вывести стоимость 0.1, 0.2, … , 1 кг
Гость
Ответ(ы) на вопрос:
Гостьvar
i,s:real;
begin
writeln('Введите стоимость');
readln(s);
i:=0.1;
while i<=1 do
begin
writeln(i*s);
i:=i+0.1;
end;end.
Не нашли ответ?
Похожие вопросы