Question

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

Answer 1

Ответ:

var n, sum, mult: integer;

begin

write('Enter number: ');

readln(n);

sum := 0;

mult := 1;

while n > 0 do begin

sum := sum + n mod 10;

mult := mult * (n mod 10);

n := n div 10

end;

writeln('Sum of digits = ', sum);

writeln('Multiplication of digits = ', mult);

readln

end.

Answer 2

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

pascalCopy code
program SumAndProduct;
var
  num1, num2, num3, sum, product: real;
begin
  writeln('Введите первое число: ');
  readln(num1);

  writeln('Введите второе число: ');
  readln(num2);

  writeln('Введите третье число: ');
  readln(num3);

  // Найдем сумму трех чисел
  sum := num1 + num2 + num3;

  // Найдем произведение трех чисел
  product := num1 * num2 * num3;

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

  readln;
end.

Сначала программа запрашивает ввод трех чисел с клавиатуры, затем вычисляет и выводит их сумму и произведение.