Дано три числа, записанный в отдельных строках. Упорядочите их в порядке неубывания. Программа должна считывать три числа a, b, c, затем программа должна менять их значения так, чтобы стали выполнены условия a <= b <= c, затем программа выводит тройку a, b, c. ((( Pascal))))
Program abra; var a,b,c,z:integer; begin readln(a,b,c); while not((a<=b) and (b<=c)) do beginz:=0;if a>b then begin z:=b; b:=a; a:=z; end; if b>c then begin z:=c; c:=b; b:=z; end; end; writeln('a: ',a,',b: ',b,',c: ',c); end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
