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

188

242

Посмотреть ответы 2

Ответы на вопрос:

Sashenka585888

Информатика

4,7(94 оценок)

Var a,col: integer; s: string; begin readln(a); if (a< 0) or (a> 999999) then writeln('число а не соответствует условию') else begin s: =inttostr(a); //переводим из числовой в строковую величину col: =length(s); writeln('количество: ',col); end; end.