ПОМОГИТЕ СОСТАВИТЬ ПРОГРАММУ В ПАСКАЛЕ. ДАНА ФУНКЦИЯ:

начало

• jadwe84suzcg 30.01.13 16:42
  
  Program primer1;
  Var x, y : integer;
  Begin
  Write ('x=');
  Readln (x);
  If (x>=0) then y := ;
  Write ('y = ', y);
  End.
  А что там с у, если х меньше 0?
  Что-то должно ж быть еще.
• Дайняшка 30.01.13 16:41

  ответ для: ИнночКа88

  
  Попробую, спасибо!
• Дайняшка 30.01.13 16:40

  ответ для: jadwe84suzcg

  
  вы правильно написали, только еще же надо, чтобы условие выполнялось существует или нет, там же в корне отрицательные числа быть не могут..на словах знаю, а в паскале не получается правильно сделать..
• ИнночКа88 30.01.13 16:37
  
  ой давно это было не помню уже ничего, вы бы на форум обратились там точно помогут
• jadwe84suzcg 30.01.13 16:37
  
  Тебе нужна полностью программа или само условие?
  Само условие так и пишется
  If (х>=0)
  THEN y:=....;
  Writeln ('y=', y);