Помогите пожалуйста! 1) Дано целое число. Если оно четное, то прибавь к нему 28, если отрицательное - вычти из него 12, если равно 0, то замени на -100. Вывести полученное число.2) Ввести два числа. Если их произведение отрицат...
Помогите пожалуйста!
1) Дано целое число. Если оно четное, то прибавь к нему 28, если отрицательное - вычти из него 12, если равно 0, то замени на -100. Вывести полученное число.
2) Ввести два числа. Если их произведение отрицательно, умножить его на -2 и вывести на экран, в противном случае увеличить его в 1,5 раза и вывести на экран.
Не понимаю программирование... :(
Гость
Ответ(ы) на вопрос:
Гость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)
else writeln(1.5*a*b);
end.
Думаю так.не судите если не так:(
Ну а блок-схему сами..
Не нашли ответ?
Похожие вопросы