Дано целое число. Если оно является положительным, то прибавить к нему 1; в прот...

August 2022 2 6 Report

Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае не изменять его. Вывести полученное число. Люди прошу помогите, пипец как надо!!!

Chudik32

var
    a: integer;

begin
    readln(a);
    if (a > 0) then
        a := a + 1;
    writeln(a);
end.

40 votes Thanks 50

archery

Verified answer

var a:integer;

begin

readln (a);

if (a>0) then

begin

a:=a+1;

writeln (a);

end

else

writeln (a);

end.

69 votes Thanks 106

Answers & Comments

Verified answer

dano celoe chislo esli ono yavlyaetsya polozhitelnym to pribavit k nemu 1 esli zhcfdc3cf447946463fe307904c70c4428 75245

zadacha1dano dvuznachnoe chislo najti summu i proizvedenie ego cifr

prignannyh razmerenno dragocennogo polnocennym najti stradatelnoe prichastie

dany dliny reber a bc pryamougolnogo parallelepipeda najti ego obem va umno

рекомендуемые вопросы

Helpful Links

Helpful Social