Найдите сумму цифр четырёхзначного числа 1234 на языке паскаль.

Question

Информатика

Антониана

7 апреля, 20:52

Найдите сумму цифр четырёхзначного числа 1234 на языке паскаль.

+4

Ответы (1)

Знаете ответ?

Эма · Answer 1

Var a, b, c, d, x:integer;

begin

x:=1234;

a:=x mod 10;

b: = ((x mod 100) div 10) ;

c: = ((x mod 1000) div 100) ;

d:=x div 1000;

x:=a+b+c+d;

writeln (x) ;

end.