Задание:
Ввести три числа. Увеличивать третье из них в 3 раза пока оно не будет больше средне арифмитического. На экран выдавать числа и ихсреднеарифметическое.
Решение:
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.
Знаете другой ответ?