Дано 6-ти значное число
Найти сумму его цифр
(С помощбя паскаля)
(Информатика 9 класс )

Можно так:VarA,i,S:integer;BeginWriteLn('Введите 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.И так:VarA,S:integer;BeginWriteLn('Введите 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.Или такVarA:integer;BeginWriteLn('Введите 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.