Олектр тогымен
талып
күйіп
қалғанда
зақымданғанда
тынысы
тарылғанда
қалғанда
1.
2.

200

481

Посмотреть ответы 1

Ответы на вопрос:

dubrovin13051

Информатика

4,4(47 оценок)

Для двузначных чисел: var a: integer; begin writeln('введи число'); read(a); if (a div 10) mod 2 = 0 then write(a div 10,' - чётная цифра') else write(a div 10,' - нечётная цифра') end. для любых чисел: var a: integer; begin writeln('введи число'); read(a); if ((a div 10) mod 10) mod 2 = 0 then write((a div 10) mod 10,' - чётная цифра') else write((a div 10) mod 10,' - нечётная цифра') end.