Регистрация
yulia398
26.08.2020 06:16
Информатика
Есть ответ 👍

Составить программу по данной блок схеме.

118
236
Посмотреть ответы 3

Ответы на вопрос:

sleep13
sleep13
4,6(5 оценок)

#pascal

program xy;

    uses crt;

    var x: real;

        y: integer;

begin

    clrscr;

    writeln('enter x');

    readln(x);

    if x > 0 then y : = 1

    else  

        if x < 0 then y : = -1

        else y : = 0;

    writeln('y is ', y);

    readln

end.

Hhjkklknbggfddxxg
Hhjkklknbggfddxxg
4,7(91 оценок)

var x,y: integer;

begin

  readln(x);

  if(x> 0) then y: =1

  else begin

    if(x< 0) then y: =-1

    else y: =0;

  end;

  writeln(y);

end.

Negumanitariy
Negumanitariy
4,5(10 оценок)
  1)516-384=132 символа 2)132х8=1056 байт

Популярно: Информатика