Question

Составьте программу в Паскаль АВС Для двух указанных с клавиатуры числа выполнить следующее: чётные числа умножить на 3, нечётные разделить на 4. Вид вывода должен быть:(например)
Было Стало
2 6

Answer 1

var

a,b: integer;

begin

 write('Введите a и b: ');

 readln(a,b);

 if a mod 2 = 0 then  

    writeln(a/4)

    else writeln(a * 3);

if b mod 2 = 0 then      

    writeln(a/4)

    else writeln(b * 3);

end.

Answer 2

//PascalABC.NET *****************************

76faef5ee18287bddd600aa31a55ebcd.pas