Ответ: а)
Прд условие подходят и а) и d), но а)- большее
// PascalABC.NET 3.1, сборка 1204 от 24.03.2016
begin
var x:=0.5;
while x<=2.1 do begin
Writeln('x=',x:3:1,' y=',tan(sin(x))+2);
x+=0.2
end
end.
<u><em>Результат выполнения программы</em></u>
x=0.5 y=2.5198809015013
x=0.7 y=2.75112025607465
x=0.9 y=2.99586604900996
x=1.1 y=3.23765167169871
x=1.3 y=3.43923041043966
x=1.5 y=3.5488600833871
x=1.7 y=3.52922062804747
x=1.9 y=3.38750383103094
x=2.1 y=3.16912357769899
while n <= m do n := 1;
while n > m do n := 0;
write(n);
Если n <= m, то n = 1,
если n > m, то n = 0 (любое число)
При этом условные операторы использованы не будут.
Есть вариант попроще: write(ord(n <= m))
Если n <= m, то будет выведено 1 (порядковый номер true), иначе будет выведено 0 (порядковый номер false)
Округляем к большему
log2 45 Получаем 5 (бит)
R, c = input().split()arr = list() for _ in range(int(r)): arr.append(list(map(int, input().split())))m = max(e for r in arr for e in r) for i, r in enumerate(arr): if m in r: print(i, r.index(m)) break