ТутРешу.Ру

Напишите программу, которая по введенному целому числу А

Задание:

Напишите программу, которая по введенному целому числу А (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.




Знаете другой ответ?

Отправить свой ответ