//Решение первой задачи

Program p1;

Uses Crt;

Var x,y: integer;
     c1,c2: 0..9;

Procedure dve_cif (x: integer; var c1,c2:0..9);

Begin

 c2:=x mod 10; // единицы 

 c1:= x div 10 mod 10;//десятки

end;

Begin //main program

 Write('Введите целое число  :'); ReadLn(x);

y:=x;

while y> 100 do  y:=y div 10;

dve_cif(y,c1,c2)

Writeln('Первая цифра:' , c1);

 Writeln('Вторая цифра:' , c2);

If c1 mod 2=0 Then Writeln('Первая цифра числа - четная')

     Else   Writeln('Первая цифра числа - нечетная');

End.

Решаем задачи. Обращайтесь по адресу:

l3-info@ya.ru
В помощь студентам образовательный центр l3-info
обеспечит выполнение студенческих работ:
курсовые, дипломные и контрольные на заказ.