Question

Дано шестизначное число. Найти сумму его цифр. Величины для хранения всех шести цифр числа не использовать.Сделать программу в паскале

Answer 1

Var a,s:integer;
begin
readln(a);
s:=0;
while a>0 do
 begin
 s:=s+a mod 10;
 a:=a div 10;
 end;
writeln('s = ',s);
end.

Пример:
123456
s = 21

Answer 2

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

pascalCopy code
program SumOfDigits;

var
  number, digit, sum: Integer;

begin
  Write('Введите шестизначное число: ');
  ReadLn(number);

  if (number < 100000) or (number > 999999) then
  begin
    WriteLn('Введенное число не является шестизначным.');
    Exit;
  end;

  sum := 0;

  for var i := 1 to 6 do
  begin
    digit := number mod 10; // Получаем последнюю цифру числа
    sum := sum + digit;     // Добавляем цифру к сумме
    number := number div 10; // Удаляем последнюю цифру из числа
  end;

  WriteLn('Сумма цифр числа: ', sum);
end.

Обратите внимание, что в этой программе предполагается, что пользователь вводит именно шестизначное число. Если число не является шестизначным, программа выведет сообщение об ошибке.