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.

Answer 2

Программа на языке Алгоритмический язык ABC (ABC Pascal) для решения данной задачи выглядит следующим образом:

pascalCopy code
program Main;

var
  num1, num2, i: Integer;
  result: Real;

begin
  Write('Введите первое число: ');
  ReadLn(num1);
  
  Write('Введите второе число: ');
  ReadLn(num2);
  
  WriteLn('Число(ы)     Было      Стало');
  
  for i := num1 to num2 do
  begin
    Write(i, '         ');
    
    if i mod 2 = 0 then
    begin
      result := i * 3;
      Write(i, '(пробел)3   ');
    end
    else
    begin
      result := i / 4;
      Write(i, '(три пробела)');
    end;
    
    WriteLn(result:0:2);
  end;
end.

Как это работает:

1. Программа запрашивает два числа с клавиатуры (num1 и num2).
2. Затем используется цикл "for" для прохода от num1 до num2 включительно.
3. Внутри цикла проверяется, является ли текущее число (i) четным или нечетным с помощью оператора "mod".
4. В зависимости от результата умножается на 3 или делится на 4, а результат выводится на экран с помощью WriteLn.

Примечание: ABC Pascal не является самым распространенным языком программирования, и его поддержка может отличаться от других языков, таких как Turbo Pascal. Если вам не удастся выполнить эту программу на своей системе, попробуйте использовать Turbo Pascal или более популярные языки, такие как Python или C++.