Pascal ABC. Дано целое число. Если оно положительное, то удвоить его; если отрицательное, то вычесть из него 2; если нулевое, то заменить его на 10. Вывести полученное число.

Question

Мариамночка

13 апреля, 13:49

+5

Ответы (1)

Знаете ответ на вопрос?

Дарий · Answer 1

Var a:integer; beginread (a) ; if a>0 then a:=a*2; if a<0 then a:=a-2; if a=0 then a:=10; write (a) ; end.