vinarsky_evgeny

Untitled

Nov 22nd, 2015
77
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.46 KB | None | 0 0
  1. { Автор: Винарский Евгений <[email protected]>, 112 гр.
  2.         Задача 10.12 а
  3. }
  4. program t10_12_a(input,output);
  5. const n=60;
  6. var rus: packed array [1..33] of char;
  7.     i,j:integer; c:char;
  8. begin
  9.   rus:='абвгдеёжзийклмнопрстуфхцчшщъыьэюя';
  10.   for i:=1 to n do begin
  11.     read(c);
  12.     j:=0;
  13.     repeat
  14.      j:=j+1;
  15.     until (c=rus[j]) or (j=33);
  16.     if c=rus[j] then write(c);
  17.    end;
  18. end.
Advertisement
Add Comment
Please, Sign In to add comment