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

решение желательно через while, извиняюсь,что не предупредил

Да ничего ...

Можете помочь еще с одной задачей? (http://znanija.com/task/17789462)

С помощью операции div у числа отбрасывается последняя цифра. Так как нужны две первые цифры числа, то это отбрасывание нужно закончить, как только останется двухзначное число. Это число будет <=99.

Спасибо!

Пожалуйста.

Еще одну задачу можете помочь решить?

Так как мы не знаем длину числа и нам надо только первые две цифры, то можно поступить так:1. Переводим число в строку и выделяем две подстроки символ длиной в 1 с начала строки, которые переводим обратно в целое.2.  А дальше стандартно с помощью целочисленного деления выясняем четность первой цифры числа. var a,a1,a2:integer;s:string  begin  readln(a);  //преобразуем число в строку и найдем первые 2 цифры  str(a,s);  a1:=strtoint(copy(s,1,1));  a2:=strtoint(copy(s,2,1));  writeln('Первая цифра числа: ',a1);  writeln('Вторая цифра числа: ',a2);  //Проверим первую цифру на четность  if a1 mod 2 =0 then writeln(a1,' - четная')    else writeln(a1,' - нечетная')end.