*Дано* *целое* *число*. *Если* *оно* *является* *положительным*, *то* *прибавить* *к* *""нему* *1*; если отрицательным, *то* вычесть из *него* 2; если нулевым, *то* ""заменить *его* на 10. Вывести полученное *число*. Срочнооо
*Дано* *целое* *число*. *Если* *оно* *является* *положительным*, *то* *прибавить* *к* *""нему* *1*; если отрицательным, *то* вычесть из *него* 2; если нулевым, *то* ""заменить *его* на 10. Вывести полученное *число*.
Срочнооо
Гость
Ответ(ы) на вопрос:
Гостьvar n : integer;
begin
read(n);
if n = 0 then
write('10') else
if n > 0 then
write(n+1) else
if n < 0 then
write(n-2);
end.
Гостьprogram sa; uses crt; var x:integer; begin clrscr; readln(x); if x>0 then x:=x+1; if x<0 then x:=x-2; if x=0 then x:=10; writeln(x); readln; end.
Не нашли ответ?
Похожие вопросы