Задача Pascal, цикл While

Ввести целое число и определить, верно ли, что все его цифры чётные

Пример:

Введите число: 2684:да

Question

Информатика

Никеша

3 апреля, 07:25

Задача Pascal, цикл While

Ввести целое число и определить, верно ли, что все его цифры чётные

Пример:

Введите число: 2684:да

+5

Ответы (1)

Знаете ответ?

Алека · Answer 1

Var A:longint;

k:integer;

Begin

Write ('Введите целое число: ') ; ReadLn (A) ;

k:=0;

While A0 do

Begin

if (A mod 10) mod 2 0 then k:=1;

A:=A div 10

End;

if k=0 then WriteLn ('Да')

else WriteLn ('Нет')

End.

Задача Pascal, цикл WhileВвести целое число и определить, верно ли, что все его цифры чётныеПример:Введите число: 2684:да

Задача Pascal, цикл While

Ввести целое число и определить, верно ли, что все его цифры чётные

Пример:

Введите число: 2684:да