Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Постусловие

Автор: Владимир 2.11.2006 0:59

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

Program Sm;
Var
x,y,z,c: integer;
Begin
Writeln ('Введите x,y и z');
Readln (x,y,z);
Repeat
c:=z*3;
Until c>x+y+z/3;
Write ('x=',x, 'y=',y, 'z=',z, 'Среднее арифметическое=',(x+y+z)/3);
End.

Так?

Автор: klem4 2.11.2006 1:09

с := z;
repeat
c := c * 3;
until (c > (x + y + z) / 3);


?


writeln('x = ', x, ' y = ', y, ' z = ', z, 'newZ = ', c);


Правда перед циклом стоит сделать проверку:


if (c <= (x + y + z) / 3) then
repeat
...