помогите срочно даю все балы Определи, что выполняет данная программа и что будет выведено на экран, если пользователь последовательно введет числа 3, 9, 7? Program n_1; Var a, b, c, max: integer; Begin Write (‘Введи a:’); Readln (a); Write (‘Введи b:’); readln(b); Write(‘Введи c:’); Readln(c); If (a>b) and (a>c) then max:=a; If (b>a) and (b>c) then max:=b; If (c>a) and (c>b) then max:=c; Writeln(‘max=’, max); end.

Вопрос школьника по предмету Информатика

помогите срочно даю все балы
Определи, что выполняет данная программа и что будет выведено на экран, если пользователь последовательно введет числа 3, 9, 7?
Program n_1;

Var a, b, c, max: integer;

Begin

Write (‘Введи a:’);

Readln (a);

Write (‘Введи b:’);

readln(b);

Write(‘Введи c:’);

Readln(c);

If (a>b) and (a>c) then max:=a;

If (b>a) and (b>c) then max:=b;

If (c>a) and (c>b) then max:=c;

Writeln(‘max=’, max);

end.

Ответ учителя по предмету Информатика

Выведет максимальное число. То есть 9.