ответить на вопросы по программе 1) в какой строке вызывается процедура? укажите номер строки 2) в какой строке вызывается функция? укажите номер строки 3) укажите тип данных переменной st? 4) в какой строке описывается переменная st? укажите номер строки 5) назначение переменной st? program zz1; var x, y, m, n: integer; st: string; function maxnumber(a, b: integer): integer; var max: integer; begin if a> b then max: =a else max: =b; maxnumber : = max; end; procedure minnumber(c, d: integer; var min: integer); begin if c end; begin write('введите свое имя'); readln(st); write('введите x, y '); readln(x, y); n: = maxnumber(x, y); writeln('максимум=', n); minnumber(x, y, m); writeln('минимум=', m); writeln('данную программу запустил: ', st); end.

1) Процедуры вызывается в строке MinNumber(x,y,m); (17)
2) Функция вызывается в строке n:= MaxNumber(x,y);  (15)
3) Переменная St имеет тип string (строковый)
4) Переменная St описывается в строке St:string; (3)
5) В переменную St вводится имя пользователя

var

 n, max, count, contrl, max2: integer;

begin

 contrl := 0;

 max := 0;

 Writeln('Введите числа: ');

 Readln(n);

 while n <> 0 do

 begin

   Inc(count);

   if n>max then begin max2:=max; max:=n end

   else if n > max2 then max2 := n;

   Read(n);

 end;

 max2*=max;

 Writeln('Введите контрольное значение: ');

 Read(contrl);

 Writeln('Получено: ', count, ' чисел');

 Writeln('Получено контрольное значение: ', contrl);

 Writeln('Вычисленное контрольное значение:: ', max2);

 if contrl = max then Writeln('Контроль пройден')

 else Writeln('Контроль не пройден');

end.

var

 n, max, count, contrl: integer;

begin

 contrl := 0;

 max := 0;

 Writeln('Введите числа: ');

 Readln(n);

 while n <> 0 do  

 begin

   Inc(count);

   if (n mod 10 = 0) and (n > max) then max := n;

   Read(n);

 end;

 Writeln('Введите контрольное значение: ');

 Read(contrl);

 Writeln('Получено: ', count, ' чисел');

 Writeln('Получено контрольное значение: ', contrl);

 Writeln('Вичисленное контрольное значение:: ', max);

 if contrl = max then Writeln('Контроль пройден')  

 else Writeln('Контроль не пройден');

end.