Составить программу, которая по номеру дня недели(целому числу от 1 до 7) выдаёт в качестве результата количество уроков в вашем классе в этот день.

Числа свои проставите

Идем с конца. из нечетных вычли 1 (получилось четное число), к четным прибавили 1 (нечётное). отменяем это: к четным прибавляем 1, от нечётных отнимаем. 3216 ->     2307 третья цифра была сдвинута на 3, при этом поменяв свою четность. 2 - четное число, значит, исходное число было нечётным и было сдвинуто на 3 влево. отменяем, сдвигаем на 3 вправо: 2 -> 3 -> 4 -> 5.  вторая цифра была сдвинута на 2, чётность не меняла, была и осталась нечётной. она была сдвинута на 2 разряда влево, нам надо сдвинуть на 2 вправо: 3 -> 4 -> 5. первая цифра сейчас чётная (0), значит, была нечётной, её сдвинули на 1 влево. сдвигаем на 1 вправо: 0 -> 1. нулевая цифра была сдвинута на 0 разрядов, поэтому осталась без изменений. это цифра 7. искомый пароль: 5517. (ну и на всякий случай: не надо ставить такие простые пароли, не будьте, как вася! )

Var     n,k,s,m: integer; begin {1-я } writeln("введите натуральное число"); readln(n); if n mod 10 = 8 then     writeln("число оканчивается на 8")     else writeln("число не оканчивается на 8"); {2-я } writeln("введите количество гостей пришедших к пете"); readln(k); if (25-k*2)> 0 then writeln("конфет хватит")     else writeln("конфет недостаточно"); {3-я } writeln("введите количество рублей у пети, а затем цену  одной тетради"); readln(s); readln(m); if (s-m*5)> =0 then writeln("петя сможет купить пять тетрадей");   else   writeln("пяти тетрадей не купить"); end.