1)
A = 7; B = 3
A mod B = 0 ⇒ 7 mod 3 = 0 ⇒ 1 = 0 ⇒ Нет
A = A*B = 7*3 = 21
Ответ: A = 21
2)
A = 12; B = 4
A mod B = 0 ⇒ 12 mod 4 = 0 ⇒ 0 = 0 ⇒ Да
A = A div B = 12 div 4 = 3
Ответ: A = 3
Var N,K : integer;beginK := 10; read(N); if (N div 10 + N mod 10) < K then begin writeln('Сумма цифр числа N меньше K'); end; writeln('N = ', N);end.
Если сверху стена и снизу стена
то
нц пока справа свободно
вправо
кц
иначе
нц пока слева свободно
влево
кц
все
..... Вроде бы так если правильно условие понял
const
n = 5;
var
arr: array [1..2*n] of <em>integer </em>:= (0,1, -2,1, -1,-1, 1,2, -3,0);
i: <em>byte </em>:= 1;
maxr: <em>real</em>;
begin
repeat
maxr := max(sqrt(sqr(arr[i]) + sqr(arr[i + 1])), maxr);
i += 2;
until (i > 2 * n - 1);
writeln(maxr);
end.