Составьте программу, которая запрашивает стоимость 1 кг конфет и
выводит на экран стоимость 0.1, 0.2, 0.3, ..., 1 кг конфет. Результат работы
программы может выглядеть так:
Введите стоимость 1 кг конфет: 7.6
Стоимость 0.1 кг конфет = 0.76 руб.
Стоимость 0.2 кг конфет = 1.52 руб.
Стоимость 0.3 кг конфет = 2.28 руб.
выводит на экран стоимость 0.1, 0.2, 0.3, ..., 1 кг конфет. Результат работы
программы может выглядеть так:
Введите стоимость 1 кг конфет: 7.6
Стоимость 0.1 кг конфет = 0.76 руб.
Стоимость 0.2 кг конфет = 1.52 руб.
Стоимость 0.3 кг конфет = 2.28 руб.
More Questions From This User See All
Answers & Comments
var
s : real;
begin
write('введите стоимость 1 кг конфет: ');
readln(s);
for var i := 1 to 9 do begin
writeln('стоимость ',i/10, ' кг конфет ', s*i/10);
end;
end.