Question

Пожалуйста! Паскаль!

Answer 1

Var a, b, c:integer;
begin 
 write('Введите стоимость товара в копейках ->'); 
 readln(a); 
 c:= a mod 100; 
 b:= a div 100; 
 write('Стоимость товара ',b,' руб. ',c,' коп.');
end.