Паскаль, подсчитать количество букв в каждом слове предолжения, тема строки и множества
121
482
Ответы на вопрос:
Readln(stroka); a: = length(stroka); for i: = 1 to a do if stroka[i] == ' ' then b: = b + 1; a: = a - b; writeln(a);
Популярно: Информатика
-
gordeevnikita1123.01.2022 22:45
-
ushatkin104.04.2020 19:16
-
кит21724.02.2020 18:31
-
Кate125718.01.2020 13:21
-
coffeegiraffe30.04.2021 22:36
-
вероника105910.08.2021 07:37
-
kanumah219.09.2022 13:27
-
Анастасия170803516.04.2021 16:52
-
FubZ1k20.09.2021 17:44
-
яна275411.02.2022 23:20