Jater

Fedya_char

Nov 27th, 2012
92
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program schet_prepinaniy;
  2. var c:char; x:integer;
  3. begin
  4.     x:=0;
  5.     repeat
  6.         read(c);
  7.         if (c=',') or (c=';') or (c=':') or (c='.') then
  8.         inc(x)
  9.     until c='.';
  10.     writeLN;
  11.     if (x mod 10=0) or (x mod 10>4) then
  12.         write('V posledovatelnosti ',x,' simvolov')
  13.     else
  14.         write('V posledovatelnosti ',x,' simvola');
  15.     readln;
  16. End.
RAW Paste Data