Question

\"Найти сумму цифр четырёхзначного числа\" задача pascal

Answer 1

var a,a1,a2,a3,a4:integer;
begin
writeln('a=');readln(a);
a1:=a div 1000;
a2:=a div 100 mod 10;
a3:=a mod 100 div 10;
a4:=a mod 10;
writeln('цифры: ',a1:2,a2:2,a3:2,a4:2);
writeln('sum=',a1+a2+a3+a4);
end.

Answer 2

Var a,b,c,d,i:integer;
begin
writeln('Введите 4 Числа=');
readln (a,b,c,d); 
i:=a+b+c+d;
writeln('Результат суммы=',c);
writeln(a,'+',b,'+'c','+'d=',i);
end.

Answer 3

program summ;

var
num, sum: integer;

begin
write('Введите четырёхзначное число: ');
readln(num);

sum := 0;
sum := sum + num mod 10; // прибавляем последнюю цифру
num := num div 10; // отбрасываем последнюю цифру

sum := sum + num mod 10; // прибавляем предпоследнюю цифру
num := num div 10; // отбрасываем предпоследнюю цифру

sum := sum + num mod 10; // прибавляем третью цифру
num := num div 10; // отбрасываем третью цифру

sum := sum + num mod 10; // прибавляем первую цифру

writeln('Сумма цифр числа равна: ', sum);

readln;
end.