написать прогпамму, которая после введенного с клавиатуры числа(в диапозоне от 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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
