Var a,b,c,max:real; Begin write('Введите 3 числа: '); readln(a,b,c); if (a>b) and (a>c) then max:=a; if (b>a) and (b>c) then max:=b; if (c>b) and (c>a) then max:=c; writeln('Наибольшее число: ',max);
End.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
