Var a,b: integer;
begin
readln (a,b);
if (a mod 2 = 0) then writeln ('Число ',a, ' чётное.') else writeln ('Число ',a, ' нечётное.');
if (b mod 2 = 0) then writeln ('Число ',b, ' чётное.') else writeln ('Число ',b, ' нечётное.');
<span>end.</span>
Constn=60;var a,l,i,j:integer;mas: array [1..n] of integer;begin randomize;writeln('Исходный массив '); for i:=1 to n do begin mas[i]:=random(64); write(mas[i]:4); end; for i:=1 to n-1 do for j:=1 to n-i do if mas[j] < mas[j+1] then begin a:=mas[j]; mas[j]:=mas[j+1]; mas[j+1]:=a; end; writeln(); writeln('Массив по убыванию'); for i:=1 to n do write(mas[i]:4); end.
26 = 35 = 3 * 7^1 + 5 * 7^0 = 35; Ответ: 7.
D16+1001001=<span> D16+49=D5F</span>