var a,b,c,max: integer; begin write ('введите а,b,c через пробел: '); readln (a,b,c); if a>b then if a>c then begin max:=a; a:=-a end else begin max:=c; c:=-c end else if b>c then begin max:=b; b:=-b end else begin max:=c; c:=-c end; writeln; writeln ('max = ',max); writeln ('a = ',a,', b = ',b,', c = ',c); end. --------------------------------------------- Пример: введите а,b,c через пробел: -5 -2 -4 max = -2 a = -5, b = 2, c = -4
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
