Написать программу нахождения большего и меньшего из 3 чисел…

Question

Написать программу нахождения большего и меньшего из 3 чисел помогитепожалуйстаа (

Answer 1

43

alexuss

01 апреля 2023

var a,b,c: integer; beginreadln (a,b,c); if (a>b) and (a>c) and (b>c) then writeln ('c=',c,'a=',a) elseif (b>a) and (b>c) and (a>c) then writeln ('c=',c,a,'b=',b) elseif (c>a) and (c>b) and (b>a) then writeln ('a=',a,'c=',c) elseif (a>b) and (a>c) and (c>b) then writeln ('b=',b,'a=',a) elseif (b>a) and (b>c) and (c>a) then writeln ('a=',a,'b=',b) elseif (c>a) and (c>b) and (a>b) then writeln ('b=',b,'c=',c) elsereadln; end

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: