Введите число от 1 до 1000.определить сколько - вопрос №49848911000 от Novaya22 01.12.2020 08:31

Question

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

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