Question

Помогите в паскале составить программу даны 3 числа если среди них больше чётных то числа удвойте иначе прибавить к числам 1

Answer 1

Const N = 3;
var a: array[1..N] of integer;
i, x: integer;
begin
x:=0;
for i:=1 to N do begin
read(a[i]);
if a[i] mod 2 = 0 then
x:=x+1;
end;
if 2*x >= N then
for i:=1 to N do begin
a[i]:=a[i]*2;
writeln(a[i]);
end
else
for i:=1 to N do begin
a[i]:=a[i]+1;
writeln(a[i]);
end;
end.

Answer 2

Добро пожаловать! Я могу помочь вам составить программу на языке Паскаль для решения вашей задачи.

Алгоритм решения

Для решения данной задачи, вам потребуется следующий алгоритм: 1. Введите 3 числа. 2. Проверьте, сколько из них являются четными. 3. Если количество четных чисел больше, чем количество нечетных, удвойте все числа. 4. Иначе, прибавьте к каждому числу 1.

Программа на языке Паскаль

Вот пример программы на языке Паскаль, которая решает данную задачу:

program NumbersManipulation;

var
  num1, num2, num3: integer;

begin
  writeln('Введите 3 числа:');
  readln(num1, num2, num3);

if (num1 mod 2 = 0) and (num2 mod 2 = 0) and (num3 mod 2 = 0) then
  begin
    writeln('Все числа являются четными.');
    num1 := num1 * 2;
    num2 := num2 * 2;
    num3 := num3 * 2;
  end
  else
  begin
    writeln('Не все числа являются четными.');
    num1 := num1 + 1;
    num2 := num2 + 1;
    num3 := num3 + 1;
  end;

writeln('Измененные числа:');
  writeln(num1, ' ', num2, ' ', num3);

readln;
end.

Объяснение программы

1. Программа запрашивает у пользователя ввести 3 числа. 2. Затем она проверяет, являются ли все три числа четными. Если это так, то каждое число удваивается. 3. Если хотя бы одно число нечетное, то к каждому числу прибавляется 1. 4. Наконец, программа выводит измененные числа на экран.

Пример работы программы

Входные данные: ``` Введите 3 числа: 2 4 6 ``` Выходные данные: ``` Все числа являются четными. Измененные числа: 4 8 12 ```

Входные данные: ``` Введите 3 числа: 1 3 5 ``` Выходные данные: ``` Не все числа являются четными. Измененные числа: 2 4 6 ```

Надеюсь, это поможет вам решить вашу задачу! Если у вас возникнут еще вопросы, не стесняйтесь задавать.