<h2>Задание 1</h2>
- program task31143737;
- var x: integer;
- begin
- x := ReadlnInteger('ВВЕДИТЕ ЧИСЛО n = ');
- if x mod 2 = 0 then
- Writeln('ЧИСЛО ', x, ' ЧЁТНОЕ')
- else
- Writeln('ЧИСЛО ', x, ' НЕЧЁТНОЕ');
- end.
<h2>Задание 2</h2>
Здесь стоит ввести ограничение на ввод, т.к если пользователь введёт x (x >= 100), то программа укажет, что это тоже двузначное число.
- program task31143737;
- var x: integer;
- begin
- x := ReadlnInteger('ВВЕДИТЕ ЧИСЛО n = ');
- if ((x > 9) or (x < -9)) then
- Writeln('ЧИСЛО ', x, ' ДВУЗНАЧНОЕ')
- else
- Writeln('ЧИСЛО ', x, ' ОДНОЗНАЧНОЕ');
- end.
Кодs могут быть разные, если кодом является номер символа в алфавите с "Ё" - ответ будет 6 4 16 18 19 6 18 5 32 12
Https://ru-static.z-dn.net/files/d73/a2b7f905e5eeb3ee891dc9f6597bb418.jpg
Активная ячейка В2
диапазоны: А1:А2, D1:E2, A4:C4