Написать прогпамму, которая после введенного с клавиатуры числа(в диапозоне от 1 до 999), обозначающий денежную еденицу, дописывал слово "рубль". Например 12 рублей, 2 рубля, 1 рубль и т.п. (Geany, pascal)
Написать прогпамму, которая после введенного с клавиатуры числа(в диапозоне от 1 до 999), обозначающий денежную еденицу, дописывал слово "рубль". Например 12 рублей, 2 рубля, 1 рубль и т.п. (Geany, pascal)
Гость
Ответ(ы) на вопрос:
Гостьprogram test;
var number: integer;
begin
write('Enter the number: ');
readln(number);
case number mod 10 of
1: writeln(number, ' рубль');
2, 3, 4: writeln(number, ' рубля');
else
writeln(number, ' рублей')
end;
readln;
end.
Не нашли ответ?
Похожие вопросы