Допишите пропущенные команды программы и впиши результат выполнения программы Program test1

Var x, y,z:integer; _

X:=3;

Y:=5;

Z_x+y;

write(z)

End.

Результат:_

Код ниже

Объяснение:

Program test1

Var x,y,z:integer; begin

X:=3;

Y:=5;

Z := x+y;

write(z) ;

End.

Результат: 8

var n,a,b,c,d,s: integer;

begin

  write('n='); readln(n); {n -   даанное 4-хзначное число}

  a: =n mod 10; {последняя, 4-я, цифра числа}

  b: =(n div 10) mod 10; {предпоследняя, 3-я, цифра}

  c: =(n div 100) mod 10; {2-я цифра}

  d: =n div 1000; {1-я цифра}

  s: =a+b+c+d;

    writeln('s=',s);

end.

program xxx;   var a, b, min : integer; begin  write('введите число а=');  

    readln(a);

  min: =10;   while a < > 0 do      begin            b: = a mod 10;             if b < min then min: =b;             a: = a div 10      end;     writeln('минимальная цифра = ', min);   readlnend.