Question

Составить программу на языке Паскаля:Даны четыре числа. Найти сумму и произведение этих чисел

Answer 1

Program MyProgram;
var
a,b,c,x:integer;
begin
readln(a,b,c,x);
writeln('Сумма: ',a+b+c+x);
writeln('Произведение: ',a*b*c*x);
end.

Answer 2

Для составления программы на языке Паскаля, которая находит сумму и произведение четырех чисел, нужно объявить переменные для каждого числа, ввести значения с клавиатуры, выполнить вычисления и вывести результаты. Вот пример программы:

pascalCopy code
program SumAndProduct;

var
  num1, num2, num3, num4: integer;
  sum, product: integer;

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

  sum := num1 + num2 + num3 + num4;
  product := num1 * num2 * num3 * num4;

  writeln('Сумма четырех чисел: ', sum);
  writeln('Произведение четырех чисел: ', product);

  readln; // Для того, чтобы консольное окно не закрывалось сразу после вывода результатов
end.

Пользователь будет приглашен ввести четыре числа, после чего программа вычислит и выведет их сумму и произведение.