Определить из каких цифр состоит число - Turbo Pascal

Формулировка задачи:

определить из каких цифр состоит число

Код к задаче: «Определить из каких цифр состоит число - Turbo Pascal»

textual
var
 S: String;
 N: LongInt;
 i: integer;
begin
 N := 1450267;
 Str(N, S);
 for i := 1 to Length(S)
 do Write(S[i]:2);
 ReadLn;
end.

15   голосов, оценка 3.867 из 5


СОХРАНИТЬ ССЫЛКУ