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

Question

Петоха

13 апреля, 00:48

+4

Ответы (2)

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

Ольга · Answer 1

var a:integer;

begin

readln (a);

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

writeln (a);

end.

Ленуша · Answer 2

Program zadacha;

var x:integer;

Begin

readln (x);

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

else a:=0;

writeln (x);

end.