HELP ME !!! Паскаль !!! << На главную или назад  

26 ответов в теме “HELP ME !!! Паскаль !!!”

1. 9
   Владимир Муромский ответил:
   20 марта 2009 в 23:05

   интересно, это на каком языке вообще было написано?

   if (a[i])='k'& a[i+1]=”0”&a[i+2]=”t”
   Then inc (k);

2. 8
   Леонид Максимов ответил:
   20 марта 2009 в 23:00

   интересно, кто же победил?

3. 7
   Дмитрий Скачков ответил:
   20 марта 2009 в 22:04

   Program one;
   Var a:string;
   I,m,k,n:longint;
   Begin
   Writeln(‘vvedite tekst’);
   Readln(a);
   K:=0;m:=length(a);for i:=0
   To m-2 do if (a[i])='k'& a[i+1]=”o”&a[i+2]=”t”
   Then inc (k);
   Writeln(‘vtekste’,k,’slov kot’);
   Readln;
   End.

   Все равно не катит ((

4. 6
   Леонид Максимов ответил:
   20 марта 2009 в 22:04

   ну и вместо

   inc (k);
   Writeln(‘vtekste’,k,’slov kot’);

   надо бы

   write('kot ');
   writeln();

5. 5
   Дмитрий Анисимов ответил:
   20 марта 2009 в 22:04

   посмотри на #2 так должно работать

6. 4
   Дмитрий Скачков ответил:
   20 марта 2009 в 22:04

   Все ! Вопрос закрык ! СПАСИБО ОГРОМНОЕ !

7. 3
   Дмитрий Анисимов ответил:
   20 марта 2009 в 22:03

   To m-2 do if (a[i])='k'& a[i+1]=”0”&a[i+2]=”t”тут вместо "0" должно быть "о" насколько я понимаю

8. 2
   Михаил Асташкевич ответил:
   20 марта 2009 в 22:02

   for i:=1{строка начинается с 1-го элемента} To m-2 do
   if (a[i]='k')and(a[i+1]='o')and(a[i+2]='t')
   Then inc (k);

9. 1
   Антон Щиров ответил:
   20 марта 2009 в 22:02

   > Что не так
   Ошибка компиляции.

   Вы бы вначале код отформатировали. Лично у меня разбираться в строке
   K:=0;m:=length(a);for i:=0
   нет никакого желания

   Уважайтетех, кому задаете вопрос. Если, конечно, хотите услышать ответ.