var c: char; s: string; i,k,p: integer; begin readln(c); {чтение заданного символа} readln(s); {чтение заданного слова} p: = pos(c,s); {определяем позицию символа} if (p=0) then {функция вернёт 0, если символ не будет найден} writeln('такого символа в слове нет.') else {если символ есть, то } begin writeln('указанный символ расположен на позиции: ',p); k: = 0; {k хранит количество вхождений} p: = length(s); {p хранит длину строки(слова)} for i: =1 to p do {пробегаем по всем символам слова} if (s[i]=c) then inc(k); {если символ совпадает, увеличиваем на 1 переменную k} writeln('количество вхождений данного символа: ',k); end; end.
Ответ дал: Гость
как я понял тебе нужна программа которая просто выводит на экран нужный тебе текст
вот она
program ohotnik;
uses crt;
var i: integer;
begin
clrscr;
textcolor(4);
write(' ka}i{gbiu ');
textcolor(12);
write(' oxothuk ');
textcolor(14);
write(' }i{ejiaet ');
textcolor(2);
write(' 3hatb ');
textcolor(3);
write(' rge ');
textcolor(1);
write(' cug9t ');
textcolor(5);
write(' fa3ahbi ');
readln;
end.
зы: слова я пытался писать буквами, я не знаю просто: поддерживает твой паскаль буквы или нет..
Ответ дал: Гость
чтение из файла обычно пишется readln(f,s) где f имя файловой переменной так что скорей всего нужно вставить
readln(input,s); s: =s+' '; f: =0; for i: = 1 to length(s) do beginif s[i]< > ' ' then r: =r+s[i]; if s[i]=' ' then begin k: =k+1; d[k]: =r; r: =''; end; end; readln(input,n); for i: = 1 to n do beginreadln(input,sait[i]); readln(input,tegs[i]); readln(input,pop[i]);
Популярные вопросы