Ответ: var s : string; i, k : integer;Begin read(s); for i:=1 to length(s)-1 do if (s[i] = ‘а’) and ((s[i + 1] = ‘;’) or (s[i + 1] = ‘:’)) then k := k + 1; write(k);End.
Источник znanija.site
Нужно написать на Паскале=))
Дан набор слов, разделенных точкой с запятой (;), который заканчивается двоеточием (:). Определить, сколько в нем слов, заканчивающихся буквой «а»
— Правильный ответ на вопрос найдете ниже
13.01.2020 · 1