Question

Помогите пожалуйста решить 9 вариант ))

Answer 1

1)
var
  i, n, c, b, af, bf, a: integer;
 begin
  af := 0;
  bf := 0;
  c := 0;
  write('Введите число:');
  readln(n);
  writeln('Введите A,B:');
  readln(a, b);
  while n > 0 do
   begin
    if((n mod 10) mod 2 = 0) then c := c + 1;
    if(n mod 10 = a) then af := af + 1;
    if(n mod 10 = b) then bf := bf + 1;
    n := n div 10;
  end;
  writeln('Количество четных цифр: ', c);
  if(af > 0) and (bf > 0) then write('Да')
  else write('Нет');
 end.
2)
var
  i: integer;
 begin
   for i := 1000 to 9999 do
    if((i mod 10) = (i div 1000)) and ((i mod 100 div 10) = (i div 100 mod 10)) then write(i, ' ');
  end;
end.
3)
var
  n, c, a, b, i: longint;
 begin
  readln(a);
  n := a;
  b := a;
  while n > 0 do
   begin
    c := c + 1;
    n := n div 10;
  end;
  for i := 1 to c do b := b * 10;
  a := a + b;
  write(a);
end.