Введите число от 1 до 1000.определить сколько тысяч,сотен,десятков,единиц.заранее - вопрос №49939111000 от leo310106 17.09.2020 17:27

Question

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

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