Что здесь неверно? Нужно найти разность большего и меньшего из трех чисел. В результате тестов обнаружилось, что при присвоении значения переменной (max или min) получается 0

Question

Информатика

Ленюся

11 января, 22:34

Что здесь неверно? Нужно найти разность большего и меньшего из трех чисел. В результате тестов обнаружилось, что при присвоении значения переменной (max или min) получается 0

+1

Ответы (1)

Знаете ответ на вопрос?

Албина · Answer 1

Вот проверила, так работает. Нормально?

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
if (c
writeln ('Разность наибольшего и наименьшего чисел равна ', max-min) ;

end.