Составьте программу в авс паскаль. даны два указанных - вопрос №9354747 от repoli433 07.04.2022 12:37

Question

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

repoli433 · Answer

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....