Решаем задачи Абрамян на Паскале. String20

String20. Дано целое положительное число. Вывести символы, изображающие цифры этого числа (в порядке слева направо).

Решение:

program String20;
var
  N:integer;
  S:string;

begin
 Write('N:');
 Readln (N);

 Str(N,S);
 Writeln(S);
end.

program String20;

var

N:integer;

S:string;

begin

Write('N:');

Readln (N);

Str(N,S);

Writeln(S);

end.

Другие задачи из раздела String можно посмотреть здесь.