Вопрос от посетителя:
Что здесь неверно? Нужно найти разность большего и меньшего из трех чисел. В результате тестов обнаружилось, что при присвоении значения переменной (max или min) получается 0
Илюха отвечает:
Вот проверила, так работает. Нормально?
Program MaxMin;
var
a, b, c: integer;
max, min: integer;
begin
writeln(‘Введите три числа.’);
read(a,b,c); {вводи числа через пробел}
max:=a;
if(b>max) then max:=b;
if(c>max) then max:=c;
min:=a;
if(b