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

Это если иметь в виду целочисленную арифметику.

Var   s : string; {функция проверки на палиндром} function palind (s : string ) : boolean; var   i : integer;   fl : boolean; begin   fl : = true;   for i : = 1 to length (s ) div 2 do     if s [i ]< > s [length (s ) -i + 1 ] then       fl : = false;   result : =fl end; {основная программа} begin   writeln ( 'введите ' );   readln (s );   if palind (s ) then     writeln ( 'данная строка является палиндромом! ' )   else     writeln ( 'данная строка не является палиндромом! ' ) end. без функции: var s : string; i : integer; palin : boolean; {основная программа} begin   writeln ( 'введите ' );   readln (s ); fl : = true;   for i : = 1 to length (s ) div 2 do     if s [i ]< > s [length (s ) -i + 1 ] then       fl : = false; if palin then     writeln ( 'данная строка является палиндромом! ' ) else     writeln ( 'данная строка не является палиндромом! ' ) end.

известны два расстояния: одно в километрах, другое—в футах(1 фут=0,45 м). какое из расстояний меньше? program ss; uses crt; var a,b,c,s,s1: integer; begin clrscr; writeln('введите расстояние в километрах: '); readln(a); writeln('введите расстояние в футах'); readln(b); writeln('введите размер одного фута в метрах'); s: =a*1000; s1: =c*b;

if s> s1 then begin write('расстояние в футах меньше чем в км'); end else writeln('расстояние в км меньше чем в футах'); writeln(' программа завершена нажмите '); readln; end.

известны две скорости: одна в километрах в час, другая—в метрах в секунду. какая из скоростей больше? program evgen; var kilom: real; metr: real; begin kilom : = metr * 1.6; write('введите скорость в км\ч: '); readln(kilom); write('введите скорость в м\с: '); readln(metr); if kilom < metr then write('скорость в км\ч больше'); if kilom > metr then write('скорость в км\ч меньше'); if kilom = metr then write('скорость в км\ч равна скорости в м\ч'); end.

даны радиус круга и сторона квадрата. у какой фигуры площадь больше program ploshcad; var r,d,skr,skv: extended; begin write('введите радиус круга: '); readln®; write('введите сторону квадрата'); readln(d); skr: =pi*sqr®; writeln('площадь круга: ',skr: 10: 5); skv: =sqr(d); writeln('площадь квадрата: ',skv: 10: 5); if skr=skv then writeln('площади равный'); if skr> skv then writeln('площадь круга больше'); if skv< skr then writeln('площадь квадрата больше'); readln; end.

  известны площади круга и квадрата. определить: a) уместится ли круг в квадрате? b) уместится ли квадрат в круге? program prim; var a,r,s1,s2: real; begin write('введите площадь круга и квадрата'); readln(s1, s2); a: =sqrt(s2); r: =sqrt(s/3.14); if (r< a/2) then writeln (' круг уместится в квадрате') else writeln (' круг не уместится в квадрате'); if (a*sqrt(2))> (4*r) then writeln ('квадрат уместится в круге') else writeln('квадрат не уместится в круге'); readln end.

даны объёмы и массы двух тел из разных материалов. материал какого из тел имеет большую плотность. var v1,v2,m1,m2,p1,p2: real; begin writeln('введите объем и массу первого тела'); readln(v1,m1); writeln('введите объем и массу второго тела'); readln(v2,m2); p1: =v1/m1; p2: =v2/m2; if p1> p2 then begin writeln('плотность первого тела больше'); end; if p1< p2 then begin writeln('плотность второго тела больше'); end else if p1=p2 then begin writeln('плотности тел равны'); end.