Халк плавал в бассейне размером n x m метров и устал. в этот момент он обнаружил, что находится на расстоянии х метров от одного из длинных бортиков ( не обязательно от ближайшего ) и y метров от одного из коротких бортиков. какое минимальное расстояние должен проплыть халк чтобы выбраться из бассейна на бортик?

var n,m,x,y,mn:integer;

begin

readln (n,m,x,y);

mn:=x;

if m-n<mn then mn:=m-n;

if y<mn then mn:=y;

if n-y<mn then mn:=n-y;

write (mn);

end.

Задание 3

p = 0, s = 1

0 > 5 ? False

s = s + p = 1 + 0 = 1

p = p + 2 = 0 + 2 = 2

2 > 5 ? False

s = s + p = 1 + 2 = 3

p = p + 2 = 2 + 2 = 4

4 > 5 ? False

s = s + p = 3 + 4 = 7

p = p + 2 = 4 + 2 = 6

6 > 5 ? True

Выход из цикла

ответ

7

Задание 4

y = 5, z = -3

5 < 5 ? False

y = y + z = 5 + (-3) = 2

x = y + z = 2 + (-3) = -1

ответ

-1

Задание 5

a = 1, b = 1

1 < 9 ? True

1 < 1 ? False

b = b + 2 = 1 + 2 = 3

a = a + 1 = 1 + 1 = 2

...

Вторая итерация цикла и последующие будут во втором условии принимать значение True, следовательно:

Первое условие у нас завершится только тогда, когда a < 9, то есть при a = 2 (не касается цикла) + 3 + 3 + 3 = 11. Всего будет 3 цикла. Все 3 цикла к b будет прибавляться 2.

b = 3 + 2 · 3 = 3 + 6 = 9

ответ

9

Описательная часть: все что находится в Var'e
var
a:array [1..100,1..100] of real; - описание двумерного масива
b:array [1..100,1..100] of real; - аналогично
i,m,n,c:integer; - описание переменных целого типа, тип это integer
i
begin - начало исполняемой части
readln(n); - считывает переменную целого типа, кол-во строк матрицы
readln(c); - аналогично, кол-во столбцов матрицы
for i:=1 to n do -цикл для строк
for m:=1 to c do - цикл для столбцов
 readln(a[i,m]); - считывает и записывает в двумерный массив числа
for i:=1 to n do -цикл для строк
for m:=1 to c do - цикл для столбцов
b[i,m]:=a[i,m]/8; - это каждый элемент массива А делит на 8, и присваивает другому массиву
for i:=1 to n do -цикл для строк
for m:=1 to c do- цикл для столбцов
 writeln(b[i,m]); - вывод второго масива
end. - конец исполняемой части