Question

ПОМОГИТЕ ПОЖАЛУЙСТА!! ОЧЕНЬ СРОЧНОО Написать программу на языке Паскаль для решения задачи: Пользователь вводит числа. Если количество, введенных чисел больше 3, то вычисляется сумма этих чисел, иначе их произведение. Результат выводится на экран с пояснением, что считалось.

Answer 1

Ответ:

AND

AT

FAK

LED

JIM

PRJ

TRD

HD

WIN

Answer 2

Конечно, вот программа на языке Pascal, которая решает вашу задачу:

pascalCopy code
program CalculateSumOrProduct;
var
  n, i: integer;
  numbers: array[1..3] of real;
  sum, product: real;
begin
  sum := 0;
  product := 1;

  writeln('Введите числа:');

  for i := 1 to 3 do
  begin
    write('Введите число ', i, ': ');
    readln(numbers[i]);
  end;

  for i := 1 to 3 do
  begin
    sum := sum + numbers[i];
    product := product * numbers[i];
  end;

  if (i > 3) then
    writeln('Сумма чисел: ', sum)
  else
    writeln('Произведение чисел: ', product);

  readln;
end.

Эта программа позволяет пользователю ввести три числа, а затем проверяет, больше ли это количество трех. Если введено больше трех чисел, программа вычислит и выведет сумму введенных чисел. В противном случае программа вычислит и выведет произведение этих чисел.