Введите число от 1 до 1000. Определить сколько тысяч, сотен, десятков, единиц.…

Question

67

Введите число от 1 до 1000. Определить сколько тысяч, сотен, десятков, единиц. Заранее спасибо

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

ответить

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

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

ducktells · Accepted Answer

45

ducktells

01 марта 2023

var a: integer; beginreadln (a); writeln (a mod 10,' edinic'); a: =a div 10; writeln (a mod 10,' desyatkov'); a: =a div 10; writeln (a mod 10,' soten'); a: =a div 10; writeln (a,' tisyach'); end.

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

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

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

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