profile
Опубликовано 6 лет назад по предмету Информатика от madiyr137

Вариант 7:

1.     
Определить максимальное и минимальное значения из двух различных
вещественных чисел.


2. Дано трехзначное число. Определить, какая из его цифр больше

а)    первая или последняя,

б)    первая или вторая,

в)    вторая или последняя

3. Даны вещественные положительные числа a,b,c. Выяснить, можно ли прямоугольник
со сторонами а,b
уместить внутри прямоугольника со сторонами с, d так, чтобы каждая из сторон одного прямоугольника была параллельна или
перпендикулярна каждой стороне второго прямо­угольника.




  1. Ответ
    Ответ дан HRAshton
    1)
    var a, b: real;
    begin
         readln(a, b);
        if (a > b) then writeln(a)
        else
            if (a < b) then writeln(b)
            else
                writeln('a = b');
    end.

    2)
    var a, b, c: integer;
    begin
         readln(a);
         b := a mod 100 div 10;
         c := a mod 10;
         a := a div 100;
         write('a) ');
        if (a > c) then writeln(a)
        else
            if (a < c) then writeln(c)
            else
                writeln('=');
         write('b) ');
        if (a > b) then writeln(a)
        else
            if (a < b) then writeln(b)
            else
                writeln('=');
         write('c) ');
        if (c > b) then writeln(c)
        else
            if (c < b) then writeln(b)
            else
                writeln('=');
    end.

    3 даже представить не могу, извините:)
Самые новые вопросы