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

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

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

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

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



Задать свой вопрос
1 ответ
1)
var a:integer; 
begin 
write('введите число'); 
read(a); 
if (agt;1) then a:=a+1 else a:=a-2; 
write(a); 
end.
2)
var a,b:integer; 
begin 
readln(a,b); 
if a*blt;0 then writeln(-2*a*b) 
else writeln(1.5*a*b); 
end. 
Размышляю так.не судите если не так:(
Ну а блок-схему сами..
Larisa Ryssak
Спасибо огромное за помощь, Вы меня выручили :)
Тимур Альфимов
не за что
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт