Помогите пожалуйста! 1) Дано целое число. Если оно четное, то прибавь к нему 28, если...

Question

Помогите пожалуйста!

1) Дано целое число. Если оно четное, то прибавь к нему 28, если отрицательное - вычти из него 12, если равно 0, то замени на -100. Вывести полученное число.

2) Ввести два числа. Если их произведение отрицательно, умножить его на -2 и вывести на экран, в противном случае увеличить его в 1,5 раза и вывести на экран.

Не понимаю программирование... :(

Answer 1

1)
var a:integer; 
begin 
write('введите число'); 
read(a); 
if (a>1) then a:=a+1 else a:=a-2; 
write(a); 
end.
2)var a,b:integer; 
begin 
readln(a,b); 
if a*b<0 then writeln(-2*a*b) <br>else writeln(1.5*a*b); 
end. 
Думаю так.не судите если не так:(
Ну а блок-схему сами..

Comments

Спасибо большое за помощь, Вы меня выручили :)

---

не за что