SHARE
TWEET

Untitled

a guest Jan 18th, 2020 71 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program Project1;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. {$R *.res}
  6.  
  7. uses
  8.   System.SysUtils,System.Character;
  9.   var
  10.   input: String;
  11.   i: Integer;
  12. begin
  13.   Writeln('Введите последовательность(строку)');
  14.   Readln(input);
  15.   for i:= Low(input) to High(input) do
  16.   begin
  17.    if (IsNumber(input[i])) then Write(input[i], ' ');
  18.   end;
  19.   Readln;
  20. end.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top