ОЧЕНЬ СРОЧНО!!!! ПОЖАЛУЙСТА РЕШИТЕ ЗАДАЧУ!!! ЗАРАНЕЕ СПАСИБО!!!!
используя строковый и символьный типы данных, составьте программу для решения задачи:
Дано предложение. Найдите кол-во слов в предложении (слова разделены пробелом)
Ответы
Ответ дал:
0
PascalABC.NET
Программа сработает некорректно если слова будут разделены несколькими пробелами или строка будет заканчиваться пробелом
const c = ' ';
var
s : string;
k,p : integer;
begin
writeln ('Введите строку');
readln (s);
k := -1;
p := 1;
if (s <> '') and (s <> ' ') then
begin
while p <> 0 do
begin
k := k +1;
p := PosEx (c,s,p+1);
end;
writeln (k+1,' word')
end
else
writeln ('error string');
end.
Программа сработает некорректно если слова будут разделены несколькими пробелами или строка будет заканчиваться пробелом
const c = ' ';
var
s : string;
k,p : integer;
begin
writeln ('Введите строку');
readln (s);
k := -1;
p := 1;
if (s <> '') and (s <> ' ') then
begin
while p <> 0 do
begin
k := k +1;
p := PosEx (c,s,p+1);
end;
writeln (k+1,' word')
end
else
writeln ('error string');
end.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад