Ответы на вопрос:
Код рабочий, проверял
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.
Если ответ , отметьте его как лучший.
Популярно: Информатика
-
hermionagr7oy47z302.12.2020 10:11
-
Dasha2k1831.07.2020 11:20
-
yanshin496126.11.2022 08:03
-
NikaI00424.05.2021 05:43
-
1234567830010.03.2022 22:33
-
vovadj1705.03.2021 05:47
-
ulia0920041313.09.2022 06:46
-
elmira6406.08.2021 12:16
-
DarvinaDark23.01.2023 13:18
-
yasasmail05.04.2021 06:13