Подсчет суммарного числа
Кто может помочь с составлением программ для подсчета суммарного числа букв "е" и букв "о" в строковой величине.
|
Цитата:
1. Язык программирования. 2. В каком виде задана строка? 3. "е" и "о" - это буквы латиницы или кириллицы? А раз так, то будем считать, что: 1. Язык Паскаль. 2. Строка записана в файле под названием "ххх", находящемся в корневом каталоге диска D: . 3. "е" и "о" - это буквы латиницы. Тогда: VAR S:STRING; f:Text; i,S_o,S_e:INTEGER; BEGIN Assign(f,'D:\xxx'); ReSet(f); ReadLn(f,S); Close(f); S_o:=0; S_e:=0; i:=0; REPEAT INC(i); IF S[i]='o' THEN INC(S_o) ELSE IF S[i]='e' THEN INC(S_e); UNTIL i=Length(S); WriteLn('The string contains ',S_o,' "o" letters and ',S_e,' "e" letters'); ReadLn; END. |
Часовой пояс GMT +4, время: 11:31. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.