Дано целое число если оно яв-ся полож. то прибавить 1. если отрицательным -2. если 0 то прибавить 10.
Дано целое число если оно яв-ся полож. то прибавить 1. если отрицательным -2. если 0 то прибавить 10.
Гость
Ответ(ы) на вопрос:
Гость var
a : integer;
begin
readln (a);
if a > 0 then
a := a +1;
if a <0 then
a := a-2
if a= 0 then
a := 10;
writeln (a);
end.
Не нашли ответ?
Похожие вопросы