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

Question

Информатика

Геруша

11 июля, 12:13

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

+4

Ответы (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.