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

Question

Информатика

Алексаша

11 октября, 22:36

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

+2

Ответы (1)

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

Боруля · Answer 1

Program If0; Vara, b, c:Integer; Begin WriteLn ('Ввести отрицательное или положительное число') ; ReadLn (a) ; If a>0Then b:=a*2 Else b:=a*3; Write (b) ; End.