составьте программу, заменяющую меньшее из двух данных чисел на среднее арифметическое этих чисел,а большее из двух данных чисел на среднюю
5-9 класс
|
геометрическую этих чисел help me!!!please
program lkcfndsl;
uses crt;
var a,b,s,g:real;
begin
clrscr;
readln(a,b);
s:=(a+b)/2;
g:=sqrt(a*b);
if a>b then a:=g else a:=s;
if b>a then b:=g else b:=s;
writeln(a,b);
readln;
end.
Надеюсь так понял.
Другие вопросы из категории
прямоугольной таблицы.
двоичной цепочкой одной и той же минимально
Определите размер файла (в Кбайт), который можно передать за то же время через другое соединение со скоростью 768 бит в секунду. В ответе укажите одно число — размер файла в Кбайт. Единицы измерения писать не нужно.ЗАРАНЕЕ СПАСИБО!
Читайте также
чисел.помогите пожалуйста,очень надо!
2.Составьте программу, определяющую, является ли данное число делителем числа 3.
Заранее спасибо.
результаты.:
· Если первое из них отрицательно, а второе вдвое больше третьего, то выведите среднее арифметическое всех четырех чисел.
· Если произведение этих чисел больше их суммы, то выведите эти сумму и произведение.
· Если выполняются одновременно два перечисленных выше условия, то выведите среднее арифметическое этих чисел, их произведение и сумму
· Иначе, выведите удвоенные значения этих чисел