1) дано целое число. если оно четное, то прибавь к нему 28, если отрицательное - вычти из него 12, если равно 0, то замени на -100. вывести полученное число. 2) ввести два числа. если их произведение отрицательно, умножить его на -2 и вывести на экран, в противном случае увеличить его в 1,5 раза и вывести на экран. не понимаю : (

261

338

Посмотреть ответы 2

Ответы на вопрос:

Hapec

Информатика

4,4(61 оценок)

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. думаю так.не судите если не так: (ну а блок-схему сами..