Записи натурального числа пятеричной системе счисления преписали право два нуля ва сколько рас увеличилась это число?

в пятиричной системе каждый следйющий разряд учеличивает число в 5 раз. раз приписали два разряда, получаем: 5 * 5 = 25 

число увеличилось в 25 раз.

например, число 12 в пятиричной системе равно числу 7 у десятичной.

привисываем два нуля: 1200 в пятеричной равно числу 175 в десятичной.

175 : 7 = 25.

 

 

//искать угол будем по теореме косинусов program n1; var x,y,z: real; function arccos(x : real) : real; {это понадобится для теор. кос.} begin arccos : = 2 * arctan(sqrt((1 - x) / (1 + ; end; procedure ygl( a,b,c: real); {процедура для удобства} var ga: real; begin ga: =arccos((sqr(a) + sqr(b) - sqr(c))/(2 * a* b)) * 180 / pi; {сама теор. кос.} writeln('угол с= ',ga: 5: 2); end; begin write('введите сторону а: '); readln(x); write('введите сторону b: '); readln(y); write('введите сторону c: '); readln(z); if(x> =y+z)or(y> =x+z)or(z> =x+y)then writeln('это не треугольник') else if x*x+y*y=z*z then {теорема пифагора} writeln('это прямоугольный треугольник') else if (x*x+y*y> z*z)and(x*x+z*z> y*y)and(z*z+y*y> x*x) then begin writeln('это остроугольный треугольник'); ygl(x,y,z); {вызываем процедуру} end else begin writeln('это тупоугольный треугольник'); ygl(x,y,z); end; end.

1) program n1; var a,b: integer; begin write('введите а и b: '); readln(a,b); writeln('сумма: ',a+b); writeln('разность: ',a-b); end. 2) program n2; var a: integer; begin writeln('введите а: '); readln(a); writeln('первая цифра(десятки): ',a div 10); end. 3) program n3; var a: integer; begin write('введите число: '); readln(a); writeln('сумма цифр= ',(a mod 10)+(a div 10)); end. 4) program n4; var a: integer; begin write('введите число: '); readln(a); writeln('сумма цифр= ',round((a mod 10)+((a mod mod 10))/10+(a div ; end.