Задание:
Сроочно*_*Помогите решить задачу для ПаскаляВвести строку, определить встречается ли в ней словo pad.
Решение:
Var mytext,mytextcopy,letter: string; i,j: byte; count: array[1… 255] of byte; begin writeln ('Type text'); readln (mytext); mytextcopy: =mytext; j: =1; while length (mytextcopy) <> 0 do begin count[ j ]: =0; letter[ j ]: =mytextcopy[1]; while pos (letter[ j ],mytextcopy) <>0 do begin delete (mytextcopy,pos (letter[ j ],mytextcopy) ,1); inc (count[ j ]); end; inc (j); end; j: =j-1; for i: =1 to j do begin writeln (letter[ i ],' — ',count[ i ]); end; end.
Знаете другой ответ?