Дано натуральное число. определить количество четных цифр в нем. составное условие и более одного неполного условного оператора не использоватьпаскаль)

begin

 var a := 1234567;

 var s := 0;

 while a > 0 do

 begin

   s += Ord(a mod 10 mod 2 = 0);

   a := a div 10;

 end;

 s.Println;

end.

Программа на языке PascalABC

program raf105;

var abc,ab,bc:integer;

begin

write('Введите трёхзначное число: ');

readln(abc);

ab:= abc mod 100;

bc:= abc div 10;

if ab = bc

 then writeln('Число состоит из одинаковых цифр')

 else writeln('Число не состоит из одинаковых цифр');

end.

Объяснение

Для выполнения задачи достаточно найти первые 2 цифры и последние 2 цифры если они равны, то число состоит из одинаковых цифр

abc mod 100 Убирает все сотни из числа.

Например было число 123, стало 23.

482 стало 82

abc div 10 Считает сколько в числе целых десяток, но не считает остаток.

Например было число 123, стало 12

482 стало 48

Сравнивание 2 первых и 2 последних цифр

253      25 и 53 не равны, значит число не состоит из одинаковых цифр

121       12 и  21 не равны, значит число не состоит из одинаковых цифр

111        11 и 11  равны, значит число состоит из одинаковых цифр

Треугольник существует, если сумма длин двух любых его сторон больше длины третьей стороны.
Длина стороны может быть определена как расстояние между соответствующими сторонами треугольника:


// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
type
  Point=record
  x,y:real
  end;

procedure GetPoint(c:char;var M:Point);
begin
  Write('Введите координаты точки ',c,': ');
  Read(M.x,M.y)
end;

function Dist(a,b:Point):=sqrt(sqr(b.x-a.x)+sqr(b.y-a.y));

begin
  var A,B,C:Point;
  GetPoint('A',A); GetPoint('B',B); GetPoint('C',C);
  var ab:=Dist(A,B);
  var bc:=Dist(B,C);
  var ac:=Dist(A,C);
  if (ab<bc+ac) and (bc<ab+ac) and (ac<ab+bc) then
    Writeln('Треугольник существует')
  else Writeln('Треугольник не существует')
end.

Тестовое решение:
Введите координаты точки A: -6.9 -5.3
Введите координаты точки B: 0 11.4
Введите координаты точки C: 9 3
Треугольник существует