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

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

Пример:

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

Question

Информатика

Никифор

23 июля, 13:04

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

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

Пример:

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

+3

Ответы (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:да