Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Все лабораторные работы по паскалю / 4 лаб. Строки / Program1
.pas uses crt;
var S: string;
i,Kol: byte;
begin
clrscr;
write('Введите строку: '); readln(S);
Kol:=0;
for i:=1 to length(S) do
if S[i]=' ' then Kol:=Kol+1;
write('Количество пробелов=',Kol);
end.
var S: string;
i,Kol: byte;
begin
clrscr;
write('Введите строку: '); readln(S);
Kol:=0;
for i:=1 to length(S) do
if S[i]=' ' then Kol:=Kol+1;
write('Количество пробелов=',Kol);
end.
Соседние файлы в папке 4 лаб. Строки