Ввести целое четырехзначное число и найти сумму его цифрПаскаль

Question

77

Ввести целое четырехзначное число и найти сумму его цифрПаскаль

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

kalter · Accepted Answer

65

kalter

22 марта 2023

Var x, S: integer; begin write ('Введите число: '); readln (x); // c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535 S: =0; while x > 0 do begin S: =S+x mod 10; x: =x div 10; end; writeln ('Сумма всех цифр: ', S); end. Помог? Жми Лучший

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

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

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

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