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

Question

Информатика

Ама

28 июля, 11:12

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

+4

Ответы (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.