Дано натуральное число: 1) найти две первые цифры числа; 2) верно ли, что первая цифра данного числа-четная

Question

Захар Фролов

Информатика

11 сентября, 03:33

Дано натуральное число: 1) найти две первые цифры числа; 2) верно ли, что первая цифра данного числа-четная

+5

Ответы (1)

Знаешь ответ на этот вопрос?

Мария Прохорова · Answer 1

program al;

var a, b, c: integer;

begin

writeln ('введите трехзначное натуральное число');

readln (a);

b:=a div 100;

c: = (a div 10) - (a div 100) * 10;

writeln (b);

writeln (c);

if b mod 2=0 then writeln ('YES')

else writeln ('NO');

end.