Програмування пайтон. Оленка вчиться ділити з залишком. Вона взяла деяке число, розділила його на 2 і відкинула залишок. Те, що вийшло, розділила на 3 та знову відкинула
залишок. Отримане число вона розділила на 4, відкинула залишок і отримала
число k. Яке число могла вибрати Оленка спочатку? Вводиться натуральне
число k, що не перевершує 1000. Необхідно вивести усі можливі числа, які
могла б вибрати спочатку Оленка, за зростанням, розділяючи їх пропусками.

k = 1

number = 1

number2 = 1

while k <= 1000:

   print(number)

   number2 /= 2

   number2 /= 3

   number2 /= 4

   k = number2

   number += 1

   number2 = number

var a,b: string; begin                            cls;   read(a);     b: =a;           write('b')end.           

программа №4program str999; uses crt; var s: string; begin writeln('введіте фразу'); read(s); if (s='край озер') then writeln ('край озер лесов и рек'); if (s='я учусь в школе') then writeln ('я учусь в 10-м классе') end. №5program p_1; uses crt; var s: string; begin writeln('введите фразу'); read(s); if (s='моя родина беларусь') then writeln ('беларусь моя родина'); if (s='люблю цябе мой родны кут') then writeln ('мой родны кут люблю цябе')  end.