Question

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

Answer 1

var

 n, i, count, sum: integer;

begin

 Writeln('Ввидете число: ');

 Read(n);

 count := 0;

 while n <> 0 do

 begin

   i := n mod 10;

   sum += i;

   count += 1;

   n := n div 10;

 end;

 Writeln('Сумма всех цифр: ', sum);

 Writeln('Количество цифр: ', count);

end.

Тестовое решение

Введите число:  

51231

Сумма всех цифр: 12

Количество цифр: 5

Answer 2

Для написания программы на языке Паскаль, которая будет считать количество и сумму цифр данного целого положительного числа, можно использовать следующий код:

pascalCopy code
program CountAndSumDigits;

var
  num, digit, sum, count: integer;

begin
  // Вводим число с клавиатуры
  writeln('Введите целое положительное число:');
  readln(num);

  // Инициализируем сумму и количество цифр
  sum := 0;
  count := 0;

  // Выполняем цикл пока число не станет равным нулю
  while num > 0 do
  begin
    // Получаем последнюю цифру числа
    digit := num mod 10;

    // Добавляем цифру к сумме
    sum := sum + digit;

    // Увеличиваем количество цифр на 1
    count := count + 1;

    // Убираем последнюю цифру из числа
    num := num div 10;
  end;

  // Выводим результаты
  writeln('Количество цифр в числе: ', count);
  writeln('Сумма цифр числа: ', sum);
end.

Скопируйте этот код в среду разработки Pascal (например, Free Pascal или Turbo Pascal) и запустите программу. Она попросит вас ввести целое положительное число, после чего выдаст количество цифр и сумму цифр данного числа.