<span>D:\Материалы к урокам\10 класс\Практические работы
перешел выше, значит </span><span>D:\Материалы к урокам\10 класс
спустился в </span><span>D:\Материалы к урокам\10 класс\Лекции
</span>удалил файл "введение", значит полное имя файла D:\Материалы к урокам\10 класс\Лекции\введение.
<span>*a*e.?
*a?e.*</span>
Присвоить к переменной A текст введенный с клавиатуры.
К переменной i присвоим длину текста в переменной А.
Переменная J присвоить 0.
Переменная к присвоим 0, "к" = количество буквы "к" в тексте
Запустить цикла от J до i с шагом 1.
В теле цикла.
Проверим "к" = А[J] (А[1] = первая буква из теста,)
К переменной "к" присвоить "к+1". при условии если "к" = А[J] .
Если "к" не равно А[J] то без изменения.
Вывод "к"
7 мин 44 сек = 464 сек
Скорость передачи: 1392 / 464 = 3 Кб/сек
Program E07;
uses crt;
var
S: string;
i,k: integer;
begin
clrscr;
writeln('Введите строку: ');
readln(S);
K:=0;
for i:=1 to length(S) do
if S[i] = ' ' then
K:=K+1;
writeln('В строке ',K:2,' пробелов!');
<span>end.</span>