:1) укажите через запятую в порядке возрастания все десятичные числа, не превосходящие 25, запись которых в троичной системе счисления оканчивается на 21? 2) укажите через запятую в порядке возрастания все десятичные числа, не превосходящие 45, запись кторых в двоичной системе счисления оканчивается на 1010? 3) укажите сколько всего раз встретится цифра 3 в записи чисел 13, 14, в системе счисления с основанием 4?

1)

 

 

 

ответ: 7, 16, 25

 

2)

 

 

 

ответ: 10, 26, 42

 

3)

 

 

 

 

 

 

 

 

 

 

 

ответ: 6

Var a,b: real; begin readln(a,b);           if a> b then begin writeln('квадрат числа',a,'=',a*a);                                                     writeln('корень числа ',b,'=',sqrt(b));                                       end;           if b> a   then begin writeln('квадрат числа  ',b,'=',b*b);                                                     writeln('корень числа  ',a,'=',sqrt(a));                                       end;                     end.

Var a,b,c : real; begin write('a='); readln(a); write('b='); readln(b); write('c='); readln(c); if (a+b< =c)or(a+c< =b)or(b+c< =a)   then writeln('треугольника не существует')   else if (a< > b)and(b< > c)and(a< > c)         then writeln('треугольник разносторонний')         else if (a< > b)or(b< > c) then writeln('треугольник равнобедренный')                                 else writeln('треугольник равносторонний'); end. пример: a=3b=4c=6треугольник разносторонний