Написать прогпамму, которая после введенного с клавиатуры числа(в диапозоне от 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.

1 Найдем остаток от деления на 10 исходного числа. Тем самым получим последнюю его цифру.

2 Добавим эту цифру к новому числу.

3 Разделим нацело на 10 исходное число. Тем самым избавимся от последней цифры в нем.

4 Снова найдем остаток от деления на 10 того, что осталось от первого числа. Запомним эту цифру.

5 Умножим на 10 второе число. Тем самым увеличим его разрядность до двух и сдвинем первую цифру в разряд десятков.

6 Добавим к полученному второму числу запомненную ранее цифру из первого числа.

7 Будем повторять действия п. 3-6 пока исходное число не уменьшится до нуля, т. е. пока не избавимся от всех его разрядов.

Объяснение:

n1 = int(input("Введите целое число: "))

n2 = 0

while n1 > 0:

   # находим остаток - последнюю цифру

   digit = n1 % 10

   # делим нацело - удаляем последнюю цифру

   n1 = n1 // 10

   # увеличиваем разрядность второго числа

   n2 = n2 * 10

   # добавляем очередную цифру

   n2 = n2 + digit  

print('"Обратное" ему число:', n2)

готово

Объяснение:

Задача 1

var

 n: integer;

begin

 Write('Введите чило >>> ');

 ReadLn(n);

 if n mod 2 = 0 then

   WriteLn('четное')

 else

   WriteLn('нечетное')

end.

Задача 2

var

 n: integer;

begin

 Write('Введите год >> ');

 ReadLn(n);

 if (n mod 100) = 0 then

 begin

   if (n div 100) mod 4 = 0 then

     WriteLn(n, ' год - високосный')

   else

     WriteLn(n, ' год - не високосный');

 end

 else

   if n mod 4 = 0 then

     WriteLn(n, ' год - високосный')

   else

     WriteLn(n, ' год - не високосный');

end.