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

Question

Информатика

Самсоний

31 июля, 00:02

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

+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.