1. Дано натуральное число. Найти первую цифру данного числа.

2. Дано натуральное число. Определить количество троек в нем.

3. Дано натуральное число. Определить количество четных цифр в нем.

Все это при помощи цикла:while

1. var a, b:integer;

begin

readln (a) ;

while a>0 do

begin

b:=a mod 10;

a:=a div 10;

end;

writeln ('Первая цифра: ', b) ;

end.

2.

var n, count : integer;

begin

readln (n) ;

while n>0 do

begin

if n mod 10=3 then count : = count + 1;

n:=n div 10;

end;

write (count) ;

end.

3.

var n, i, count : integer;

begin

readln (n) ;

while n> 0 do

begin

i:=n mod 10;

if odd (i) = false then count : = count + 1;

n:=n div 10;

end;

writeln ('Кол-во четных цифр: ', count) ;

end.