var i,num:integer; num_s:string; begin write('vvedite celoe chislo: '); read(num); num_s:=IntToStr(num); for i:=1 to num_s.length do write(' ',num_s[i]); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
