Question

дано трехзначное число.Найдите сумму произведение цифр в числе. Составьте программу Паскаль пожалуйста помогите

Answer 1

Var a,b,c,k:integer;
begin
Read(a,b,c);
k:=a+b+c;
Writeln("сумма цифр=",k);
end.

Answer 2

Конечно, я могу помочь вам с этим! Вот пример программы на языке Pascal, которая находит сумму произведений цифр трехзначного числа:

pascalCopy code
program Сумма_Произведение_Цифр;

var
  number, digit, product, sum: integer;

begin
  // Введите трехзначное число
  writeln('Введите трехзначное число:');
  readln(number);

  // Разделите число на цифры и найдите их произведение и сумму
  digit := number mod 10;
  product := digit;
  sum := digit;

  digit := (number div 10) mod 10;
  product := product * digit;
  sum := sum + digit;

  digit := number div 100;
  product := product * digit;
  sum := sum + digit;

  // Выведите результаты
  writeln('Произведение цифр:', product);
  writeln('Сумма цифр:', sum);

end.

При выполнении программы вам будет предложено ввести трехзначное число. Затем программа разделит это число на цифры и найдет произведение цифр, а также их сумму. Результаты будут выведены на экран.

Надеюсь, это поможет! Если у вас возникнут еще вопросы, не стесняйтесь задавать.