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