Question

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

Answer 1

begin

 var (a, b) := ReadInteger2('Введите 2 целых числа:');

 Writeln(a, ' ', b, newline, 'Было   Стало');

 foreach var x in Range(a, b) do

 begin

   Write(x, '   ');

   Println(x.isEven ? x * 3 : x / 4);

 end;

end.