Напишите программу, которая принимает с клавиатуры число и превращает его в положительное, если оно отрицательное, либо в ноль во всех остальных случаях.

Question

Ефросим

3 мая, 11:15

+5

Ответы (2)

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

Генюша · Answer 1

Program zadacha;

var x:integer;

Begin

readln (x) ;

if (x<0) then a:=abs (x)

else a:=0;

writeln (x) ;

end.

Нинаня · Answer 2

var a:integer;

begin

readln (a) ;

if (a<0) then a:=a * (-1) else a:=0;

writeln (a) ;

end.