Дано натуральное число. Найти первую цуфру числа. Верно ли что она четная?

Question

Информатика

Анастаска

4 января, 12:40

Дано натуральное число. Найти первую цуфру числа. Верно ли что она четная?

+1

Ответы (1)

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

Иваша · Answer 1

Program N;

Var A:integer;

Begin

ReadLn (A) ;

While A>9 do

A: = A div 10;

if A mod 2 = 0 then Writeln ('Первая цифра чётная')

else WriteLn ('Первая цифра нечётная') ;

ReadLn

End.