Вычислить значение выражения

@maxim0308 · Регистрация: 15.02.2014

Дано вещественное число a . Вычислить Z

@Puporev · 15.02.2014, 15:45

Не по теме:

Да, это задача не для средних умов...

@Samhain · 15.02.2014, 15:52

maxim0308,

Pascal

var a:real;
  z:integer;
Begin
 Read(' = a');Writeln(a);
  if a>0 then z:=1
  Else if a=0 then z:=0
   Else z:=-1;
  Writeln('z =',z);
  Readln 
End.

@maxim0308 0 / 0 / 0 Регистрация: 15.02.2014 Сообщений: 7
		1
	Вычислить значение выражения 15.02.2014, 15:37. Показов 1327. Ответов 2 Метки нет (Все метки) Дано вещественное число a . Вычислить Z Изображения 0

@Puporev
	15.02.2014, 15:45 #2
	Не по теме: Да, это задача не для средних умов... 0

	15.02.2014, 15:52

Решение