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

Question

Информатика

Агнесса

17 июля, 00:44

Написать программу которая сравнивала бы его с 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.