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

Question

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

Answer 1

89

primus

10 марта 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: