Question

Ввести целое четырёхзначное число и найти сумму его цифрПаскаль

Answer 1

Var 
 x, S:integer;
begin 
 write('Введите число:'); 
 readln(x);
// c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535
     S := 0;
    while x > 0 do
    begin
       S := S + x mod 10;
       x := x div 10;
    end; 

writeln('Сумма всех цифр:', S);end.

Помог? Жми Лучший

Answer 2

Program task;
var a,b,c,d,n,s:longint;
begin
writeln('vvedite chislo 4-значноe chislo');read(a);
b:= a div 1000;
c:= a div 100 mod 10;
d:= a div 10 mod 10 ;
n:= a mod 10;
writeln('n=',n);
writeln('b=',b);
writeln('c=',c);
writeln('d=',d);
writeln('s=',b+c+d+n);
end.

Answer 3

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

1. Введите целое четырехзначное число. 2. Разделите число на отдельные цифры. 3. Сложите все цифры вместе, чтобы получить сумму.

Например, если мы возьмем число 1234, то сумма его цифр будет равна 1 + 2 + 3 + 4 = 10.

Пример кода на языке Паскаль:

program SumOfDigits;
var
  number, digit, sum: integer;
begin
  writeln('Введите целое четырехзначное число: ');
  readln(number);
  
  sum := 0;
  digit := number;
  
  while digit > 0 do
  begin
    sum := sum + digit mod 10;
    digit := digit div 10;
  end;
  
  writeln('Сумма цифр числа ', number, ' равна ', sum);
end.

После ввода числа, программа будет последовательно складывать каждую цифру числа и выводить итоговую сумму.

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

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