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

Question

Малинья

2 февраля, 20:02

+5

Ответы (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.