Возьмем четырехзначное число, которое не содержит цифры 0, и разрежем его на четыре числа, порядок полученных чисел менять нельзя. Примем полученные числа за длины отрезков и постараемся составить из них прямоугольник. Первое и третье число примем за длину, а второе и четвертое

— за ширину.

Вам дано два числа a1 и a2. Для каждого отдельно сообщите, можно ли разрезать число и

составить прямоугольник, или скажите, что такое невозможно.

Формат входных данных

В первой строке вводится одно целое число a1 (1000 6 a1 6 9999).

Во второй строке вводится одно целое число a2 (1000 6 a2 6 9999).

Гарантируется, что числа a1 и a2 не содержат цифры 0.

Формат выходных данных

Если из разреза числа нельзя составить прямоугольник, выведите «no».

Иначе выведите «rectangle». В случае, если полученный прямоугольник также является квадратом, вместо этого выведите «square». В этой же строке выведите значения длины и ширины.

Выведите в отдельной строке ответ для каждого из чисел a1 и a2.
НАПИШИТЕ КОД НА ПАЙТОН

ответы:

1) 4 раза

2) 5 раз

Поскольку цикл зависит от переменной x разберём только её:

1. x = 1 проверяем условие цикла 1 < 5 (да) цикл запускается х = 2

2. x = 2 проверяем условие цикла 2 < 5 (да) цикл запускается х = 3

3. x = 3 проверяем условие цикла 3 < 5 (да) цикл запускается х = 4

4. x = 4 проверяем условие цикла 4 < 5 (да) цикл запускается х = 5

5. x = 5 проверяем условие цикла 5 < 5 (нет) цикл не запускается

Следовательно цикл исполнится 4 раза.

При изменении условий на x <= 5

1. x = 1 проверяем условие цикла 1 <= 5 (да) цикл запускается х = 2

2. x = 2 проверяем условие цикла 2 <= 5 (да) цикл запускается х = 3

3. x = 3 проверяем условие цикла 3 <= 5 (да) цикл запускается х = 4

4. x = 4 проверяем условие цикла 4 <= 5 (да) цикл запускается х = 5

5. x = 5 проверяем условие цикла 5 <= 5 (да) цикл запускается х = 6

6. x = 6 проверяем условие цикла 6 <= 5 (нет) цикл не запускается

Следовательно цикл исполнится 5 раз.

1) Пароль в этом коде - "zn4n1j4". Заменить при необходимости.

var

 i: integer;

 s: string;

begin

 i := 1;

 while i <= 5 do

 begin

   readln(s);

   if s = 'zn4n1j4' then

   begin

     writeln('Вход в систему разрешен');

     exit;

   end;

   writeln('Неверный пароль.');

 end;

 writeln('Пароль не был угадан 5 раз.');

end.

2) Используем операцию x mod 10 для получения последней цифры числа и x div 10 для "отбрасывания" последней цифры числа.

var

 x, ans: integer;

begin

 read(x);

 ans := 0;

 while x <> 0 do

 begin

   ans := ans + (x mod 10);

   x := x div 10;

 end;

 writeln(ans);

end.