Предмет: Информатика,
автор: wetrsd
С клавиатуру вводится строка. Определить в ней количество пробелов
Ответы
Автор ответа:
1
var a,b,c:integer;
d:string;
begin;
b:=0;writeln('введите строку');
readln(d);
for a:=1 to length(d) do begin
if (d[a]=' ') then b:=b+1;end;
writeln('количество пробелов в строке ==> ', b);
end.
d:string;
begin;
b:=0;writeln('введите строку');
readln(d);
for a:=1 to length(d) do begin
if (d[a]=' ') then b:=b+1;end;
writeln('количество пробелов в строке ==> ', b);
end.
Автор ответа:
0
var s:string;n,k:integer;
begin
s:= 'Проба она проходит первый раз и можем выполняться';// несколько раз';
n:=1;
while n>0 do begin
n:= pos(' ',s);k:=k +1;delete(s,1,n);end;
write(k-1);end.
begin
s:= 'Проба она проходит первый раз и можем выполняться';// несколько раз';
n:=1;
while n>0 do begin
n:= pos(' ',s);k:=k +1;delete(s,1,n);end;
write(k-1);end.
Интересные вопросы
Предмет: Русский язык,
автор: khadizhagasano1
Предмет: Английский язык,
автор: vilochka444
Предмет: Русский язык,
автор: 587587587
Предмет: Қазақ тiлi,
автор: Ольга436
Предмет: Русский язык,
автор: army398