вывести на экран цифры числа n (решение в паскале) в любом порядке

Question

Информатика

Сашура

5 января, 05:19

вывести на экран цифры числа n (решение в паскале) в любом порядке

+1

Ответы (1)

Знаете ответ на вопрос?

Игорек · Answer 1

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.