Задание:
Напишите программу, которая по введенному целому числу А (0≤ А ≤ 999999) находит сумму цифр этого числаS.
Решение:
Var a,col: integer; s: string; beginreadln (a); if (a<0) OR (a>999999) thenwriteln ('Число А не соответствует условию') elsebegins: =IntToStr (a); //Переводим из числовой в строковую величинуcol: =length (s); writeln ('Количество: ',col); end; end.
Знаете другой ответ?