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

Question

Информатика

Федула

14 августа, 09:33

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

+5

Ответы (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.