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

3 (пробел) 6

Было (три пробела) Стало

3 (три пробела) 0,75

и так до 6

Question

Информатика

Аэрон

29 сентября, 04:55

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

3 (пробел) 6

Было (три пробела) Стало

3 (три пробела) 0,75

и так до 6

+3

Ответы (1)

Знаете ответ на вопрос?

Милара · 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.