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

Question

Информатика

Елена

4 марта, 23:05

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

+5

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