Написать программу которая введенные с клавиатуры отрицательные числа удваивает и прибавляет 5 а положительные оставляет без изменения

Question

Влас

26 июля, 22:29

+1

Ответы (1)

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

Дросида · Answer 1

Program zz;

var a:integer;

begin

readln (a) ;

if a>0 then writeln (a)

else

begin

a:=a*2+5;

writeln (a) ;

end;

end.