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.

Функция isSevenHere возвращает истину, если в числе есть семерка, и ложь - если ее нет. В цикле for перебираем все значения от 1 до K (число, введенное с клавиатуры), и выводим на экран только те, где есть семерка.

Код программы:

function isSevenHere(number : integer) : boolean;var digit : integer;begin  Result := true;  while (number > 0) do  begin        digit := number mod 10;    if (digit = 7) then            exit;    number := number div 10;  end;  Result := false;end;
var i,k :integer;begin  write('Введите k: ');  readln(k);
  for i := 1 to k do    if (isSevenHere(i) = true) then      write(i,' ');end.

Program mathlover12;

const

 n = 6; {Количество элементов массива}

var  

 a:array[1..n] of integer;

s:string;

i,min,max: integer;

begin

 s:=' -=Alphaeus=- ';

 for i:=1 to 22 do begin write(s[i]); sleep(42) end;

{вводим элементы массива}

 writeln; writeln('Введите ',n,' чисел:');

 for i:=1 to n do read(a[i]);

{Ищем min и max}

min:=a[1];

max:=a[1];

 for i:=2 to n do

   begin

     if min>a[i] then min:=a[i];

     if max<a[i] then max:=a[i];

   end;

{Выводим произведение  min и max}

 writeln; writeln;

 writeln('Произведение min и max равнo ',min*max);

end.