написать прогпамму, которая после введенного с клавиатуры числа (в диапозоне от 1 до 999), обозначающий денежную еденицу, дописывал слово "рубль". Например 12 рублей, 2 рубля, 1 рубль и т. п. (Geany, pascal)

Question

Информатика

Камилька

28 мая, 18:04

написать прогпамму, которая после введенного с клавиатуры числа (в диапозоне от 1 до 999), обозначающий денежную еденицу, дописывал слово "рубль". Например 12 рублей, 2 рубля, 1 рубль и т. п. (Geany, pascal)

+5

Ответы (1)

Знаете ответ?

Санюша · Answer 1

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.