ТутРешу.Ру

Что здесь неверно? Нужно найти разность большего и меньшего из трех…?

Задание:

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

Решение:

Вот проверила, так работает. Нормально? Program MaxMin; var a, b, c: integer; max, min: integer; beginwriteln ('Введите три числа.'); read (a,b,c); {вводи числа через пробел}max: =a; if (b>max) then max: =b; if (c>max) then max: =c; min: =a; if (b



Знаете другой ответ?

Отправить свой ответ