Напишите программу, которая по введенному целому числу А (0≤ А ≤ 999999) находит сумму цифр этого числа S.

Question

Информатика

Елена

11 сентября, 12:25

Напишите программу, которая по введенному целому числу А (0≤ А ≤ 999999) находит сумму цифр этого числа S.

+3

Ответы (1)

Знаете ответ на вопрос?

Вассиан · Answer 1

Var a, col:integer;

s:string;

begin

readln (a) ;

if (a999999) then

writeln ('Число А не соответствует условию')

else

begin

s:=IntToStr (a) ; / / Переводим из числовой в строковую величину

col:=length (s) ;

writeln ('Количество: ', col) ;

end;

end.