Программа: Ввести пятизначное число и найти сумму его цифр.

Первый вариант:

Var A, S:longint;

Begin

S:=0;

Write ('Введите пятизначное число: ') ; ReadLn (A) ;

S:=S + (A div 10000) + (A div 1000) mod 10 + (A div 100) mod 10 + (A div 10) mod 10 + (A mod 10) ;

Write ('S = ', S) ;

End.

Второй вариант:

Var

A:longint;

S, i:integer;

Begin

S:=0;

Write ('Введите пятизначное число: ') ; ReadLn (A) ;

For i: = 1 to 5 do

Begin

S:=S+A mod 10;

A:=A div 10;

End;

WriteLn ('S = ', S) ;

End.