Question

Даны три целых числа а, b, с. Если среди чисел нет ни одного, кратного 3, то найти их сумму и среднее арифметическое в противном случае - их произведение и удвоенную сумму Это надо на паскале 90 баллов

Answer 1

program Task3;

var a,b,c,sum,mult:integer;

begin

 writeln('Введите три целых числа');

 readln(a,b,c);

 sum:=a+b+c;

 mult:=a*b*c;

 if (a mod 3<>0) and (b mod 3<>0) and (c mod 3<>0) then writeln('Сумма = ',sum,' Среднее арифметическое = ',sum/3:2:2) else writeln('Произведение = ',mult,' Удвоенная сумма = ',2*sum);

end.

Answer 2

Для решения этой задачи на Pascal, вы можете использовать следующий код:

pascalCopy code
program Task;
var
  a, b, c, sum, average, product, doubledSum: integer;
begin
  writeln('Введите три целых числа:');
  readln(a, b, c);

  sum := a + b + c;
  average := sum div 3;

  if (a mod 3 = 0) or (b mod 3 = 0) or (c mod 3 = 0) then
  begin
    product := a * b * c;
    doubledSum := 2 * sum;
    writeln('Произведение чисел: ', product);
    writeln('Удвоенная сумма чисел: ', doubledSum);
  end
  else
  begin
    writeln('Сумма чисел: ', sum);
    writeln('Среднее арифметическое: ', average);
  end;

  readln;
end.

Этот код сначала запрашивает у пользователя три целых числа (a, b и c), затем вычисляет их сумму и среднее арифметическое. Затем он проверяет, есть ли среди чисел хотя бы одно, которое кратно 3, и в зависимости от результата выполнения условия выводит либо сумму и среднее арифметическое, либо произведение чисел и удвоенную сумму.