3. Даны три целых числа. Выбрать из них те, которые принадлежат интервалу [1,3].
4. Заданы два числа X, Y. Меньшее из двух значений заменить на 0. Если же они равны – заменить нулями оба.
5. Заданы три целых числа X, Y, Z. Найти наименьшее из их произведения и суммы.
6. Дано двузначное число. Определить, равен ли квадрат этого числа учетверенной сумме кубов его цифр. Например, для числа 48 ответ положительный, для числа 52 — отрицательный.
Информатика, Язык С++
НУЖНО СДЕЛАТЬ ДО ПЯТНИЦЫ

      саксофон     пиан      ударн                    географ.фак     ист.фак   физ.фак.  биолог

М          +                 -              -                                     -                     -                                      

В           -                +              -                                      +                    -                -                  -

А           -                  -             -                                     -                    +                 -                 -            

Л           -                 -             +                                      -                   -                                         

 

Валерий пианист - географич. фак 

Код

var
    x, y, z, a, b, c, d, t: integer ;

begin
    x := 336;
    y := 8;
    x := x div y;
    y := x mod y;
    writeln('x = ', x, ', y = ', y);
   
    a := 1686;
    b := (a div 10) mod 5;
    a := a - 200 * b;
    writeln('a = ', a, ', b = ', b);
   
    x := 11;
    y := 5;
    t := y;
    y := x mod y;
    x := t;
    y := y + 2 * t;
    writeln('x = ', x, ', y = ', y, ', t = ', t);
   
    x := 19;
    y := 3;
    z := y * 2;
    y := x mod y;
    x := x - z;
    y := y + z;
    writeln('x = ', x, ', y = ', y, ', z = ', z);
   
    x := 13;
    y := 3;
    z := x;
    x := z div y;
    y := x;
    writeln('x = ', x, ', y = ', y, ', z = ', z);
end.

Вывод и ответы по очереди

1) x = 42, y = 2
2) a = 1086, b = 3
3) x = 5, y = 11, t = 5
4) x = 13, y = 7, z = 6
5) x = 4, y = 4, z = 13