Составьте программу в АВС Паскаль. Даны два указанных с клавиатуры числа 3 и 6. Нужно выполнить следующее: чётные числа умножить на 3, нечётные поделить на 4(числа от 3 до 6) и вывести в виде ;
3(пробел)6
Было(три пробела) Стало
3(три пробела)0,75
и так до 6
Составьте программу в АВС Паскаль. Даны два указанных с клавиатуры числа 3 и 6. Нужно выполнить следующее: чётные числа умножить на 3, нечётные поделить на 4(числа от 3 до 6) и вывести в виде ;
3(пробел)6
Было(три пробела) Стало
3(три пробела)0,75
и так до 6
3(пробел)6
Было(три пробела) Стало
3(три пробела)0,75
и так до 6
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Интересные статьи из справочника
Поможем написать учебную работу
Отвечай на вопросы, зарабатывай баллы и трать их на призы.
Подробнее
Подробнее
program Numbers;
var
num1, num2, i: integer;
begin
writeln('Введите два числа:');
readln(num1);
readln(num2);
writeln('Было Стало');
for i := num1 to num2 do
begin
write(i, ' ');
if i mod 2 = 0 then
writeln(i * 3)
else
writeln(i / 4);
end;
end.