Дано вещественное число — цена 1 кг конфет. вывести стоимость 0.1, 0.2, … , 1 кг

ksa010402 ksa010402    3   19.06.2019 02:50    1

Ответы
zinkovich92 zinkovich92  15.07.2020 13:54
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика