1. Дана цифра А. Найти все двузначные числа в которых встречается эта цифра.

2. Вывести на экран все двузначные числа сумма цифр которых делится на 5.

3. Найти среднее арифметическое чисел в промежутке от А до В.

1)

var a, i : integer;

begin

write ('a = ') ; readln (a) ;

for i:=10 to 99 do

if (i mod 10 = a) or (i div 10 = a) then write (i,' ') ;

end.

2)

var i : integer;

begin

for i:=10 to 99 do

if (i mod 10 + i div 10) mod 5 = 0 then write (i,' ') ;

end.

3)

var a, b, i, sum:integer;

begin

write ('a = ') ; readln (a) ;

write ('b = ') ; readln (b) ;

sum:=0;

for i:=a to b do sum:=sum+i;

writeln ('Ср. арифм. = ', sum / (b-a+1)) ;

end.