Задано целое число n ( 1≤n≤9 ) , что определяет сумму (в гривнах ) . Вывести эту сумму прописью .(delphi 7)

Задано целое число n ( 1≤n≤9 ) , что определяет сумму (в гривнах ) . Вывести эту сумму прописью .(delphi 7)

Войдите что бы оставлять комментарии
Ответы (3)
d
Войдите что бы оставлять комментарии
const digits: array[1..9] of string = ('одна', 'дві', 'три', 'чотири', 'п''ять', 'шість', 'сім', 'вісім', 'дев''ять'); var n: integer; begin   read(n);   if n in [1..9] then writeln(digits[n]) end.
Войдите что бы оставлять комментарии
+ к посту выше можно еще вывести валюту, чуть ниже кода дописав: case n of 1 : writeln('гривна'); 2..4 : writeln('гривны') else writeln('гривен'); end;
Войдите что бы оставлять комментарии
Оставить ответ
Войдите, чтобы написать ответ
Самое интересное за 24 часа