function per(x:integer):string; begin case x of 10: result:='A'; 11: result:='B'; 12: result:='C'; 13: result:='D'; 14: result:='E'; 15: result:='F'; else str(x,result); end; end;
begin for i:=1 to 15 do for j:=0 to 15 do for k:=0 to 15 do if 2*(i*16*16+j*16+k)=j*16*16+k*16+i then begin ix:=i; jx:=j; kx:=k; end; s:=per(ix)+per(jx)+per(kx); writeln(s); end.
В результате работы программы получаем ответ. ответ: 6DB
На паскале, если не на паскале нужно, то укажите какой необходим.
const m = 5; n = 4; var i, j, max: integer; a: array[1..m, 1..n] of integer; begin writeln('Исходный массив: '); for i := 1 to m do begin for j := 1 to n do begin a[i, j] := random(20); write(a[i, j]:3); if(a[i, j] > max) then max := a[i, j]; end; writeln; end; writeln('Максимальный элемента: ', max); writeln('Конечный массив: '); for i := 1 to m do begin for j := 1 to n do begin if(a[i, j] mod 2 = 0) then a[i, j] := max; write(a[i, j]:3); end; writeln; end; end.
Варианты ответов:
1) print("Python "*5)
2) print("Python")
print("Python")
print("Python")
print("Python")
print("Python")
3) for i in range(5):
print("Python")