Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Дано натуральное число:Найти две первые цифры числа. Верно ли, что первая цифра данного числа-четная? Решение в паскале,помогите пжлст

Ответ оставил Гость

Var n,k1,k2:integer;
begin
write(n = ); readln(n);
while n>99 do n:=n div 10;
k1:=n div 10;
k2:=n mod 10;
writeln(1 цифра = ,k1,  2 цифра = ,k2);
if k1 mod 2 = 0
  then writeln(1-я цифра четная)
  else writeln(1-я цифра нечетная);end.

Пример:
n = 5632149
1 цифра = 5  2 цифра = 6
1-я цифра нечетная