Склавиатуры вводится два трехзначных числа. возвести первое число в квадрат, а из второго извлечь корень, если хотя бы у одного из чисел, средняя цифра четная. в противном случае из первого извлечь корень, а второе возвести в квадрат. вывести на экран измененные числа.

Var a,b: integer; begin   write('a b через пробел: ');   readln(a,b);   if div 10) mod 10) mod 2 = 0) or       div 10) mod 10) mod 2 =0) then    begin     a: =a*a; b: =floor(sqrt(b));   end   else   begin     a: =floor(sqrt(a));     b: =b*b;   end;   writeln('a = ',a,'   b = ',b); end.a b через пробел: 13 54 a = 3   b = 2916 a b через пробел: 24 16 a = 576   b = 4

Var a,b: integer;   a1,b1: real; begin write ('a= '); readln (a); write ('b= '); readln (b); if (a div 10 mod 10 mod 2 = 0) or (b div 10 mod 10 mod 2 = 0) then    begin  a1: =sqr(a); b1: -sqrt(b); end; else  begin    a1: =sqrt(a); b1: =sqr(b); end;   write (a1,' ',b1); end.

телевидение

радиовещание

интернет

газеты и т.д 

8=1000(2)=8(8)=8(16)

20=10100(2)=24(8)=14(16)

33=100001(2)=41(8)=21(16)

56=111000(2)=70(8)=38(16)

115=1110011(2)=163(8)=73(16)

246=11110110(2)=366(8)=f6(16)

522=1000001010(2)=1012(8)=20a(16)

1133=10001101101(2)=2155(8)=46d(16)

2166=100001110110(2)=4166(8)=876(16)

а вообще, можно использовать инженерный режим калькулятора windows для перевода в эти системы