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

Question

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

Comments

я бы помог перевести в рубли

---

но не в гривны

---

помогите перевести рубли

---

ладно, но какая именно сумма?

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,' коп')<br>              else writeln(k,' коп.');
end.

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

Comments

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