Program chisla; uses crt; var i,l:integer; s:string; Begin Write('Введите число ,i = '); Readln(i); s:=inttostr(i); l:=length(s); clrscr; For i:= 1 to l do Writeln('Цифра числа № ',i,' = ',s[i],' '); End.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
