Ответы
Ответ дал:
0
Var
n,k:integer;
Begin
Write('Введите n и k: ');
Readln(n,k);
if n = k then write(n) else
if n>k then write('N - max') else write('K - max');
End.
n,k:integer;
Begin
Write('Введите n и k: ');
Readln(n,k);
if n = k then write(n) else
if n>k then write('N - max') else write('K - max');
End.
Вас заинтересует
6 лет назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад