Есть ответ 👍

Решите , желательно в табличном в виде.

243
419
Посмотреть ответы 2

Ответы на вопрос:


О бесплатный я возьму вы не против?

Mished
4,8(47 оценок)

Код рабочий, проверял

Program Min-Max;

var a,b,c,min,max:integer;  # задаём переменные

begin

write('Введите 3 числа для сравнения (через пробел) : ');read(a,b,c); # ввод данных

min:=a;max:=a;

if b>max then max:=b;if b<min then min:=b;  # сравниваем числа

if c>max then max:=c;if c<min then min:=c;

write(max - min);  # выводим результат

end.

Если ответ , отметьте его как лучший.

Популярно: Информатика