Составьте программу в АВС Паскаль. Даны два указанных с клавиатуры числа 3 и 6. Нужно выполнить следующее: чётные числа умножить на 3, нечётные поделить на 4(числа от 3 до 6) и вывести в виде ;
3(пробел)6
Было(три пробела) Стало
3(три пробела)0,75
и так до 6
Ответы
Ответ дал:
0
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.
Вас заинтересует
1 год назад
2 года назад
8 лет назад