Определите значение a и b после выполнения алгоритма:        a := 42        b := 4        a := a div b        b := a mod b

Сотовая связь, сеть подвижной связи — один из видов мобильной радиосвязи, в основе которого лежит сотовая сеть. Ключевая особенность заключается в том, что общая зона покрытия делится на ячейки (соты), определяющиеся зонами покрытия отдельных базовых станций (БС). Соты частично перекрываются и вместе образуют сеть. На идеальной (ровной и без застройки) поверхности зона покрытия одной БС представляет собой круг, поэтому составленная из них сеть имеет вид шестиугольных ячеек (сот).

Сеть составляют разнесённые в приёмопередатчики, работающие в одном и том же частотном диапазоне, и коммутирующее оборудование, позволяющее определять текущее местоположение подвижных абонентов и обеспечивать непрерывность связи при перемещении абонента из зоны действия одного приёмопередатчика в зону действия другого.

В равностороннем треугольнике все три угла равны между собой и равны 60 градусов.
В равнобедренном треугольнике два угла равны между собой и оба острые.
В прочих треугольников значения всех трех углов различаются между собой.

Эффективность алгоритма решения напрямую зависит от того, насколько успешно производится сравнение углов.

Первый вариант программы (логика ЕСЛИ-ТО-ИНАЧЕ)
program v1;

var
  a, b, c: real;

begin
  Write('Введите значения углов треугольника в градусах: ');
  Readln(a, b, c);
  if a = b then
    if a = c then Writeln('Треугольник равносторонний')
    else Writeln('Треугольник равнобедренный')
  else
  if a = c then Writeln('Треугольник равнобедренный')
    else
  if b = c then Writeln('Треугольник равнобедренный')
  else Writeln('Все стороны треугольника имеют различную длину')
end.

Второй вариант программы (логические выражения)
program v2;

var
  a, b, c: real;

begin
  Write('Введите значения углов треугольника в градусах: ');
  Readln(a, b, c);
  if (a = b) and (a = c) then Writeln('Треугольник равносторонний')
  else
  if (a = b) or (a = c) or (b = c) then Writeln('Треугольник равнобедренный')
  else Writeln('Все стороны треугольника имеют различную длину')
end.

Тестовое решение:
Введите значения углов треугольника в градусах: 75 30 75
Треугольник равнобедренный