Предмет: Информатика, автор: Скруджикова

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

 

Ответы

Автор ответа: Kitsu
0

var a:integer;

begin

readln(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.

Интересные вопросы
Предмет: Математика, автор: mce798
помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите помогите​