Паскаль. Множества
В строке слова разделены любыми знаками препинания. Подсчитать количество слов, используя множество.
suleimanzhasulan
1
05.04.2020 16:10
1
Другие вопросы по теме Информатика
jusupova2001
19.12.2019 09:32
Юліан11
19.12.2019 07:38
eka04599
19.12.2019 07:43
Gold1121
19.12.2019 07:49
Настюша577
10.09.2019 10:49
МаринаБалыгина505212
10.09.2019 10:51
Lina300333
16.09.2019 11:20
Zhora231
16.09.2019 11:20
nikbayy
16.09.2019 11:20
Популярные вопросы
- Прочитай текст. найди и подчеркни в нём местоимение-существительное. найди и...
2 - Напишите уравнение реакция оксида цинка и оксида калия, укажите условия реакции...
2 - Какие слова являются грамматической основой предложения? прочесть по-настоящему...
1 - Напишите молекулярные и ионные уравнения реакций между раствором азотной кислоты...
3 - Напишите молекулярные и ионные уравнения реакций между раствором азотной кислоты...
3 - Не могу понять. в10. объем куба равен 108. найдите объем четырехугольной пирамиды,...
3 - Дан прямоугольный треугольник с катетами a и b . найти гипотенузу c составить...
3 - Перевести с баш.языка на була- юлсы- сигенде...
2 - Разложите по числа : 8359; 961,24; 7,9453; 8,003;...
3 - Проведите морфологический разбор наречия быстро...
1
===== PascalABC.NET =====
begin
var s := ReadString;
if s.Length = 0 then
Print(0)
else
begin
var k := 1;
foreach var c in s do
if c in [',', '.'] then
Inc(k);
Print(k)
end
end.