Решить по программе Паскаля:

Ввести число. Если оно неотрицательно, вычесть из него 50, в противном случае прибаить к нему 100.

If х>0 then у:=х-50 elseу: х+100

Question

Информатика

Абакум

13 октября, 13:17

Решить по программе Паскаля:

Ввести число. Если оно неотрицательно, вычесть из него 50, в противном случае прибаить к нему 100.

If х>0 then у:=х-50 elseу: х+100

+4

Ответы (2)

Знаете ответ?

Арсен · Answer 1

var

x : integer;

begin

Write ('Введите значение x') ;

ReadLn (x) ;

if x>=0 then x:=x-50 else x:=x+100

WriteLn ('Ответ: ', x)

end.

Если я не совсем забыла Паскаль, то все верно

Дюня · Answer 2

program sdd;

uses crt;

var x:integer;

begin

clrscr;

write ('x=') ;

readln (x) ;

if x>0 then x:=x-50

else x:=x+100;

writeln (x) ;

readkey;

end.

Решить по программе Паскаля:Ввести число. Если оно неотрицательно, вычесть из него 50, в противном случае прибаить к нему 100.If х>0 then у:=х-50 elseу: х+100

Решить по программе Паскаля:

Ввести число. Если оно неотрицательно, вычесть из него 50, в противном случае прибаить к нему 100.

If х>0 then у:=х-50 elseу: х+100