Ввести три числа. Увеличивать третье из них в 3 раза пока…

Question

Ввести три числа. Увеличивать третье из них в 3 раза пока оно не будет больше средне арифмитического. На экран выдавать числа и ихсреднеарифметическое.

Answer 1

37

karelin

26 марта 2023

uses crt; var a,b,c,s: real; beginwrite ('Введите 3 числа: '); readln (a,b,c); repeat begin c: =c*3; s: =(a+b+c) /3; write ('Числа: ',a: 5,b: 5,c: 5,' Их среднее арифметическое: ',s: 5); writeln; end; until c>s; end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: