Регистрация
Milena251267
31.05.2020 11:52
Информатика
Есть ответ 👍

Составить программу на ''pascal abc'') дана строка, содержащая текст на языке, и некоторая буква. подсчитать, сколько слов начинается с указанной буквы.

273
410
Посмотреть ответы 2

Ответы на вопрос:

sidikreal
sidikreal
4,7(11 оценок)
Var s: string; i,f,l: integer; a: string; begin readln(s); read(a) ; f: =0; l: =length(s); for i: =l downto 1 do begin if s[i]=' ' then              if s[i+1]='a' then f: =f+1; end;               if s[1]='a' then f: =f+1; writeln(f); end.            
NastushaJol
NastushaJol
4,6(84 оценок)
T= 250 * 1024 * 8 / 512000 = 4 секунды i =128 * 128 * 1=16384 бит   = 2 кбайта

Популярно: Информатика