Задание 1. Некоторая сумма денег выражена в копейках, например 317,

5050, 100. Записать данную сумму в гривнах и копейках, т. е. в виде: 3 грн. 17

коп., 50 грн. 50 коп, 1 грн. 00 коп. (Количество копеек всегда выражается

двумя цифрами)

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 коп