Задачи с ветвлениемЯвляется ли число К трехзначнымКакое из чисел а, б, с, является меньшимЕсть ли среди чисел а, б, с взаимно противоположныеЯвляется л

 Задачи с ветвлением
Является ли число К трехзначным
Какое из чисел а, б, с, является меньшим
Есть ли среди чисел а,б,с взаимно противоположные
Является ли 4-ехугольник со сторонами а, б, с. д ромбом

  • VAR
       k: String;
    BEGIN
       Read(k);
       if (Length(k) = 3) then Write(k, ‘ — 3-ное число)
       else Write(k, ‘ — не 3-ное число’);
    END.
    ————————————————————————
    VAR
       a,b,c: LongInt;
    BEGIN
       Read(a, b, c);
       If (a <= b)and(a <= c) then Write(a)
       else (b <= a)and(b <= c) then Write(b)
       else Write(c);
    END.
    ————————————————————————
    VAR
       a,b,c: LongInt;
    BEGIN
       Read(a, b, c);   

       if (a = b) then Writeln(a, ‘ ‘, b, ‘ — взаимно противоположные числа’);
       if (a = c) then Writeln(a, ‘ ‘, c, ‘ — взаимно
    ————————————————————————
    VAR
       a,b,c,d: Real;
    BEGIN
       Read(a, b, c, d);   

       if (a = b)and(b = c)and(c = d) then Write(‘Ромб’)
       else Write(‘Не ромб’);
    END.

  • противоположные
    числа’); 
       if (b = c) then Writeln(c, ‘ ‘, b, ‘ — взаимно
    противоположные
    числа’);    
    END.