Question

Помогите пожалуйста, дам максимум баллов. Нужно составить программу на Паскале (ниже само задание). Если хотя бы два числа из трех введенных чисел положительны, то уменьшить каждое нечетное число на 1, иначе – найти сумму всех чисел.

Answer 1

Ответ:

var a,b,c,kol:integer;

 begin

   readln(a,b,c);

if a>0 then inc(kol);

if b>0 then inc(kol);

if c>0 then inc(kol);

if kol>=2 then

                      begin

                        if a mod 2=1 then dec(a);

                        if b mod 2=1 then dec(b);

                        if c mod 2=1 then dec(c);

                      end

  else writeln(a+b+c);

end.

Объяснение:

Answer 2

Конечно, помогу вам составить программу на языке Паскаль, чтобы решить данную задачу. Ниже приведен код программы:

pascalCopy code
program MaxScore;

var
  num1, num2, num3: integer;
  sum, countPositives: integer;

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

  countPositives := 0;

  { Подсчет количества положительных чисел }
  if num1 > 0 then
    Inc(countPositives);
  if num2 > 0 then
    Inc(countPositives);
  if num3 > 0 then
    Inc(countPositives);

  { Проверка условия и выполнение соответствующих действий }
  if countPositives >= 2 then
  begin
    if num1 mod 2 <> 0 then
      Dec(num1);
    if num2 mod 2 <> 0 then
      Dec(num2);
    if num3 mod 2 <> 0 then
      Dec(num3);
    writeln('Результат:');
    writeln(num1, ' ', num2, ' ', num3);
  end
  else
  begin
    sum := num1 + num2 + num3;
    writeln('Результат:');
    writeln('Сумма всех чисел:', sum);
  end;

end.

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

1. Мы объявляем переменные num1, num2 и num3, которые будут содержать введенные числа, а также переменные sum и countPositives.

2. Затем пользователю предлагается ввести три целых числа.

3. Мы инициализируем countPositives нулем и затем проверяем каждое из введенных чисел на положительность. Если число положительное, увеличиваем countPositives на 1.

4. Далее, основываясь на значении countPositives, проверяем условие задачи. Если хотя бы два числа положительны (countPositives >= 2), то каждое нечетное число уменьшается на 1.

5. Если условие не выполняется (все числа отрицательны или есть только одно положительное), вычисляем сумму всех чисел и выводим ее на экран.

Пожалуйста, скопируйте этот код в среду разработки Паскаля и выполните программу. Убедитесь, что вводите целые числа, разделенные пробелами, и нажмите "Enter" для получения результата.