fork download
copy 
  1. uses crt;
  2. var count,i:integer;
  3. s,str:string;
  4. BEGIN
  5. WRITE('Введите строку: ');
  6. READ(s);
  7. WRITE('Введите буквосочетание из 2 букв: ');
  8. READ(str);
  9. count:=0;
  10. FOR i:=1 to length(s) DO BEGIN
  11. if ((str[1]=s[i]) and (str[2]=s[i+1])) then BEGIN
  12. inc(count);
  13. i:=i+1;
  14. END;
  15. END;
  16. WRITE('Количество заданных буквосочетаний в строке: ', count);
  17. END.
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin
copy 
Standard input is empty
compilation info 
prog.pas:0: warning: missing program header
prog.pas:1: error: module/unit interface `crt' could not be imported
stdout
copy 
Standard output is empty
https://ideone.com/yGowKN
language:
Pascal (gpc 20070904)
created:
7 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!