Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Задание 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 коп