Добавил:
student_tipo
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:лабораторная работа / Текст лабы 7
.txt Program stroka;
var
str, str1:string;
i, n, n1, n2: bute;
begin
Writeln('Введите слово');
read(str);
n:=0;
n2:=0;
for i:=1 to lenght(str) do if str[i]:<>str[i] then
begin
n:=n+1;
n1:=n2+1;
n2:=i;
end;
writeln('n=',n);
end.
var
str, str1:string;
i, n, n1, n2: bute;
begin
Writeln('Введите слово');
read(str);
n:=0;
n2:=0;
for i:=1 to lenght(str) do if str[i]:<>str[i] then
begin
n:=n+1;
n1:=n2+1;
n2:=i;
end;
writeln('n=',n);
end.
Соседние файлы в папке лабораторная работа