С клавиатуры вводится предложение в котором слова разделены пробелами определите
Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке — https://slurm.club/3MeqNEk
for i:=1 to length(s) do begin
if (i = length(s)) or (s[i+1] = ‘ ‘) then begin
if not (s[i] in A) then begin
if s[i] in maybe then begin
count := 2 + count;
maybe := maybe — [s[i]];
A := A + [s[i]];
end
else begin
maybe := maybe + [s[i]];
end;
end
else begin
count := count + 1;
end;
end;
end;
В PYTHON!(98 баллов)
1)С клавиатуры вводиться символьная строка.Определите сколько в ней цифр.
2)С клавиатуры вводиться предложение,в котором каждые два слова разделены ровно пробелом.Определите,сколько слов в этом предложении.
3)С клавиатуры вводиться предложение,в котором слова разделены пробелами.Определите,сколько слов в этом предложении начинается на букву «а».
Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.
С клавиатуры вводится предложение, в котором слова разделены пробелами. определите, сколько слов в этом предложении начинается
Программа считает слова,которые начинаются с «а» и «А».
program letter_a;
var s: string;
k: integer;
begin
writeln(‘Введите несколько слов через пробел.’);
readln(s);
k:= 0;
for i:integer:= 1 to length(s) do
begin
//Если буква а в начале предложения
if (i = 1) and ((s[1] = ‘а’) or (s[1] = ‘А’)) then k:= k + 1;
//Если с буквы а начинается слово, и это слово не первое в предложении
if (i > 1) and ((s[i — 1] + s[i] = ‘ а’) or (s[i — 1] + s[i] = ‘ А’)) then k:= k + 1;
end;
writeln();
writeln(‘Количество слов, начинающихся с буквы «а» или «А»: ‘, k)
end.
С клавиатуры вводится предложение в котором слова разделены пробелами определите
Поскольку за последним словом в предложении пробела нет, то количество слов в предложении будет на единицу больше количества пробелов.
var
i,n:integer;
s:string;
begin
Writeln(‘Введите текст, разделяя слова ровно одним пробелом’);
Readln(s);
n:=0;
for i:=1 to Length(s) do
if s[i]=’ ‘ then Inc(n);
Writeln(‘Количество слов в тексте равно ‘,n+1)
end.
Тестовое решение:
Введите текст, разделяя слова ровно одним пробелом
Это текст, количество слов в котором нам нужно посчитать.
Количество слов в тексте равно 9