Реши пример: x=88+53257+26. Дана программа на языке программирования Паскаль для решения данного примера. Заполни пропуски.

var
x:real;
begin

:=
(88+532)/(57+26)
88+532/(57+26)
88+532∗57
;
writeln('x=',x:4:2);
readln;
end.

Var n,m,osn: integer;
function nmbdec(var n,osn: integer): integer;
var nmb,l,s,k: integer;
begin
  nmb:=0;  s:=0;
  k:=n;  l:=1;
  while k>0 do
  begin
    s:=k mod 10;
    k:=k div 10;
    nmb:=nmb+l*s;
    l:=l*osn;
  end;
  Result:=nmb;
end;
{ конец функции}
begin
  write('число:  ');
  readln(n);
  write('квадрат какого числа:  ');
  readln(m);
  osn:=10;
  while osn>=2 do
  begin
     osn:=osn-1;
    if nmbdec(n,osn)=sqr(nmbdec(m,osn)) then
    begin
      writeln('основание системы = ',osn);
      break;
    end;
  end;
end.

Объяснение:

1. 10

2. 12

3. 3

4. 22

5. 15

6. 34

7. 3

Часть 2

1.

Var

n:integer;

Begin

Write('Введи число ');

Readln(n);

if (n mod 2) = 0 then write(n,' чётное) else write(n,' нечётное);

End.

2.

Var

a,b:integer;

Begin

Write('Введи числа ');

Readln(a,b);

if a>b then Begin Write('a = ',b*a,' b = ',a+b) else write('a = ',a+b,' b = ',a*b);

End.

3.

Var

n:integer;

Begin

write('Введи двузначное число ');

Readln(n);

if ((n div 10) = 6) or ((n mod 10) = 6) then write('6 присутствует') else write('6 нет в этом числе');

End.