Ответ(ы) на вопрос:
Гостьvar a, b, c:integer;
begin
write('Введите стоимость товара в копейках ->');
readln(a);
c:= a mod 100;
b:= a div 100;
write('Стоимость товара ',b,' руб. ',c,' коп.');
end.
Не нашли ответ?
Похожие вопросы