Question

Задание 1. Некоторая сумма денег выражена в копейках, например 317,
5050, 100. Записать данную сумму в гривнах и копейках, т. е. в виде: 3 грн. 17
коп., 50 грн. 50 коп, 1 грн. 00 коп. (Количество копеек всегда выражается
двумя цифрами)

Answer 1

var s,g,k:integer;
begin
writeln('Введите сумму (в копейках):');
readln(s);
g:=s div 100;
k:=s mod 100;
write(g,' грн. ');
if k=0 
 then writeln('00 коп.')
 else if k<10 then writeln('0',k,' коп')
              else writeln(k,' коп.');
end.

Пример:
Введите сумму (в копейках):
5205
52 грн. 05 коп

Answer 2

спасибо большоее