Даны три числа.Вывести на экран те из их,чье двойное произведение меньше,чем

Даны три числа.Вывести на экран те из их,чье двойное творенье меньше,чем среднее арифметическое этих чисел. Безотлагательно ПОМОГИТЕ ПО ИНФОРМАТИКЕ

Задать свой вопрос
Shadihanov Daniil
В паскале написать?
1 ответ
Var
  a, b, c, S : real;
begin
  write('1 chislo: ');
  readln(a);
  write('2 chislo: ');
  readln(b);
  write('3 chislo: ');
  readln(c);
  S := (a + b + c) / 3;
  if a * b lt; s then
    writeln(a,' ',b);
  if a * c lt; s then
    writeln(a,' ',c); 
 if b * c lt; s then
    writeln(b,' ',c);
end.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт