Дано 6-ти значное число

Найти сумму его цифр

(С помощбя паскаля)

(Информатика 9 класс)

Можно так:

Var

A, i, S:integer;

Begin

WriteLn ('Введите 6-значное число:');

ReadLn (A);

S:=0;

For i: = 1 to 6 do

Begin

S:=S + (A mod 10);

A:=A div 10;

End;

WriteLn ('S = ', S)

End.

И так:

Var

A, S:integer;

Begin

WriteLn ('Введите 6-значное число:');

ReadLn (A);

S:=0;

S:=A mod 10;

A:=A div 10;

S:=S + (A mod 10);

A:=A div 10;

S:=S + (A mod 10);

A:=A div 10;

S:=S + (A mod 10);

A:=A div 10;

S:=S + (A mod 10);

A:=A div 10;

S:=S + (A mod 10);

WriteLn ('S = ', S)

End.

Или так

Var

A:integer;

Begin

WriteLn ('Введите 6-значное число:');

ReadLn (A);

WriteLn ('S = ', (A div 100000) + ((A div 10000) mod 10) + ((A div 1000) mod 10) + ((A div 100) mod 10) + ((A div 10) mod 10) + (A mod 10))

End.