Это часть про разложение на цифрыuses crt; var a,b,c,d,e,x:integer; begin write('vvedi chislo'); readln (x); a:=x div 10000; b:=x div 1000 mod 10; c:=x mod 1000 div 100; d:=x mod 100 div 10; e:=x mod 10; writeln (' ',a,' ',b,' ',c,' ',d,' ',e);end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
