Задание:
Помогите пожалуйста! 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. Думаю так. Не судите если не такНу а блок-схему сами…
Знаете другой ответ?