Введите число от 1 до 1000.определить сколько тысяч,сотен,десятков,единиц.заранее - вопрос №11000498714 от olesyasa1 30.06.2022 13:41

Question

Информатика: Введите число от 1 до 1000.определить сколько тысяч,сотен,десятков,единиц.заранее

olesyasa1 · Answer

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