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

Question

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

Comments

На каком языке?

---

на языке паскаль

---

Понял

---

Делаю

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.

Comments

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

---

Вот так чище будет

---

СПАСИБО)

---

Незачто,   если что обращайся