Var a,b:real; Begin Write('Введите 2числа: '); readln(a,b); Writeln('Среднее арифмитическое этих чисел = ',(a b)/2); Writeln('Среднее геометрическое этих чисел = ',(a*b)/2); End.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
