Сроочно_Помогите решить задачу для ПаскаляВвести строку…

Question

Сроочно_Помогите решить задачу для ПаскаляВвести строку, определить встречается ли в ней словo pad.

Answer 1

76

ulzuber

02 февраля 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль:

Сроочно*_*Помогите решить задачу для ПаскаляВвести строку…

Сроочно*_*Помогите решить задачу для ПаскаляВвести строку, определить встречается ли в ней словo pad.

Сроочно_Помогите решить задачу для ПаскаляВвести строку…

Сроочно_Помогите решить задачу для ПаскаляВвести строку, определить встречается ли в ней словo pad.