вывести на экран цифры числа n (решение в паскале) в любом порядке
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
