Напишите программу для решения следующей задачи: один литр жидкости для опрыскивания...

Question

Напишите программу для решения следующей задачи: один литр жидкости для опрыскивания растений от вредителей стоит x копеек . определите стоимость 20,5? литров!?

Answer 1

Var x,y1,y2:integer;
begin
write('x = ');
readln(x);
y1:=round(20.5*x) div 100;
y2:=round(20.5*x) mod 100;
writeln('Стоимость 20.5 л = ',y1,' руб ',y2,' коп');
end.

Пример:
x = 28
Стоимость 20.5 л = 5 руб 74 коп