Паскаль. Программирование разветвляющихся алгоритмов. Условный оператор (полная форма). Нахождение минимума и максимума из двух, трёх и четырёх чисел
×
Задание 1
Дан алгоритм. program N; var a, b, c, d, mx1, mx2, mx: integer; begin readln( a, b, c, d); if a > b then mx1 := a else mx1 := b; if c > d then mx2 := c else mx2 := d; if mx1 > mx2 then mx := mx1 else mx := mx2; writeln( mx1 ); end. Выберите верный вариант формулировки задачи, которую решает предложенный алгоритм.
×
Задание 2
Выберите все возможные варианты условия, которое необходимо записать в команду ветвления, чтобы программа решала задачу о принадлежности точки с координатами x, y первой координатной четверти. program N; var x , y : real; Begin readln ( x , y ); if ... then writeln('Принадлежит') else writeln('Не принадлежит') End.
×
Задание 3
Определите значение переменной c после выполнения следующего фрагмента программы: a := 60; b := 20; a := a / b * 2; if a > b then c := a - 4 * b else c := a + 4 * b; В ответе укажите одно целое число – значение переменной с.
