profile
Опубликовано 4 года назад по предмету Информатика от Grupeka

написать программу, которая считает, сколько слов в тексте, введенном с клавиатуры

  1. Ответ
    Ответ дан pro100LiNa
    const Alpha : set of char=['A'..'Z','А'..'П','Р'..'Я','a'..'z','а'..'п','р'..'я']; var s:string; i:integer; wc:integer; begin writeln('Введите текст'); readln(s); i:=1; wc:=0; Repeat while NOT(s[i] in Alpha) and (i<=length(s)) do inc(i); if (i<=length(s)) then inc(wc); while (s[i] in Alpha) and (i<=length(s)) do inc(i); Until (i>length(s)); writeln('Количество слов в этом тексте = ',wc); end.
Другие вопросы
Lenusik
Математика - 3 недели назад

10 сентября был вторник. в какой день недели выпадает 13 августа в этом году?

321
Математика - 1 месяц назад

На 9 машинах доставили 47700 кг зерна, сколько зерна могут перевезти 12 таких машин?

bkmz
Математика - 1 месяц назад

Масса слона на 24т700кгменьше массыкитакаковамассакита если масса слона 5т 800кг

lesiunia
Физика - 1 месяц назад

Рассчитать среднюю скорость: s = 16 км t = 18 мин. ответ в м/с и в км/ч

Kiril
Физика - 1 месяц назад

Сколько часов и минут в -1,3ч и -2,75ч

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.