Var A:integer; Begin WriteLn('Введите четырёхзначное число'); ReadLn(A); WriteLn(A div 1000,' ',(A div 100) mod 10,' ',(A div 10) mod 10,' ',A mod 10); End.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
