вроде должно выполняться в паскале...

@katyusha182 · Регистрация: 06.02.2011

Author24 — интернет-сервис помощи студентам

Помогите, пожалуйста, решить это задачу...
Даны три числа x, y, z. Вычислить
T=x-y-z , если x > 1 и y+2x > z
max(y, x) , в противном случае

@Pe4K1N · 07.02.2011, 00:10

"max(y, x) , в противном случае"
не понятно вот эта часть.

"Даны три числа x, y, z. Вычислить
T=x-y-z , если x > 1 и y+2x > z"
вот для этой части

Pascal

Program one;
Var
 x,y,z:real;
Begin
 Writeln('Vvedite x');
 readln(x);
 Writeln('Vvedite y');
 readln(y);
 Writeln('Vvedite z');
 readln(z);
 If (x>1) and ((y+2*x)>z) then writeln('Otvet',x-y-z)
  else writeln('Vvedeno ne pravilno');
 readln;
end.

Плюс в репу!

@katyusha182 · 07.02.2011, 01:05 **[ТС]**

сама не поняла что значит эта строчка...

@Pe4K1N · 07.02.2011, 07:37

У тебя прям так задание написано?

@SuPeR XaKer · 07.02.2011, 07:48

максимальный элемент среди x и y это значит

@Puporev · 07.02.2011, 07:49

Pascal

Program one;
uses crt;
Var
 x,y,z,t:real;
Begin
clrscr;
 Write('Vvedite x='); readln(x);
 Write('Vvedite y='); readln(y);
 Write('Vvedite z='); readln(z);
 If (x>1) and ((y+2*x)>z) then t:=x-y-z
 else
  if x>y then t:=x else t:=y;
 writeln('T=',t:0:2);
 readln;
end.

@katyusha182 0 / 0 / 0 Регистрация: 06.02.2011 Сообщений: 7
		1
	вроде должно выполняться в паскале... 06.02.2011, 22:44. Показов 728. Ответов 5 Метки нет (Все метки) Помогите, пожалуйста, решить это задачу... Даны три числа x, y, z. Вычислить T=x-y-z , если x > 1 и y+2x > z max(y, x) , в противном случае 0

@katyusha182 0 / 0 / 0 Регистрация: 06.02.2011 Сообщений: 7
	07.02.2011, 01:05 [ТС]	3
	сама не поняла что значит эта строчка... 0

@Pe4K1N 2 / 2 / 0 Регистрация: 05.02.2011 Сообщений: 7
	07.02.2011, 07:37	4
	У тебя прям так задание написано? 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,877
	07.02.2011, 07:48	5
	максимальный элемент среди x и y это значит 0

	07.02.2011, 07:49

Опции темы