подсчет букв

@Богдан94 · Регистрация: 09.04.2011

Author24 — интернет-сервис помощи студентам

Составить программу для подсчета количества букв "е " в слове "кибернетика "

@Dekio · 09.04.2011, 19:47

Pascal

1
2
3

for i:=1 to length(st) do
if st[i]='е' then
inc(cnt);

@KaiTheCat · 09.04.2011, 19:53

Не по теме:

ответ 2 x)

@Богдан94 · 09.04.2011, 21:10 **[ТС]**

Составить программу для подсчета количества букв "т" в слове "конституция "

только мне надо, чтобы она была понятна
это для школы

@Zverit · 09.04.2011, 21:13

Сообщение от Богдан94

Составить программу для подсчета количества букв "т" в слове "конституция "

Ну это же аналогия

@Dekio · 09.04.2011, 21:15

Богдан94, не хотите мозги включить?

@Zverit · 09.04.2011, 21:21

Pascal

uses crt ;
var i,cnt : integer;
st,b : string;
begin
writeln('Введите слово') ;
readln (st);
writeln ('Введите букву')
readln (b) ;
for i:=1 to length (st) do
if st[i] = b then
inc(cnt);
writeln('Буква повторяется ',cnt,' раз');
end.

Вот держи универсальную)

@Sumrak201007 · 09.04.2011, 21:23

Pascal

Uses CRT;
var
   st: string;
   i, cnt: integer;
Begin
st:='Кибернетика';
for i:=1 to length(st) do
if st[i]='е' then
inc(cnt);
Writeln (cnt);
End.

@Dekio · 09.04.2011, 21:25

Сообщение от ITZver

st,b : string; begin writeln('Введите слово') ; readln (st); writeln ('Введите букву') readln (b) ;

и зачем под букву использовать тип string?

@Богдан94 · 09.04.2011, 23:25 **[ТС]**

я просто в этих программах не разбираюсь
а в школу надо...
спасибо всем))))))

а какая из этих программ простейшая?????????
ну из всех пользователей

@Богдан94 0 / 0 / 0 Регистрация: 09.04.2011 Сообщений: 4
		1
	подсчет букв 09.04.2011, 18:21. Показов 6959. Ответов 9 Метки нет (Все метки) Составить программу для подсчета количества букв "е " в слове "кибернетика " 0

@KaiTheCat
	09.04.2011, 19:53 #3
	Не по теме: ответ 2 x) 0

@Богдан94 0 / 0 / 0 Регистрация: 09.04.2011 Сообщений: 4
	09.04.2011, 21:10 [ТС]	4
	Составить программу для подсчета количества букв "т" в слове "конституция " только мне надо, чтобы она была понятна это для школы 0

@Zverit Уничтожитель печенек 281 / 209 / 49 Регистрация: 07.02.2010 Сообщений: 724
	09.04.2011, 21:13	5
	Сообщение от Богдан94 Составить программу для подсчета количества букв "т" в слове "конституция " Ну это же аналогия 0

@Dekio Фрилансер 5845 / 1226 / 499 Регистрация: 23.11.2010 Сообщений: 3,375 Записей в блоге: 1
	09.04.2011, 21:15	6
	Богдан94, не хотите мозги включить? 0

@Dekio Фрилансер 5845 / 1226 / 499 Регистрация: 23.11.2010 Сообщений: 3,375 Записей в блоге: 1
	09.04.2011, 21:25	9
	Сообщение от ITZver st,b : string; begin writeln('Введите слово') ; readln (st); writeln ('Введите букву') readln (b) ; и зачем под букву использовать тип string? 0

@Богдан94 0 / 0 / 0 Регистрация: 09.04.2011 Сообщений: 4
	09.04.2011, 23:25 [ТС]	10
	я просто в этих программах не разбираюсь а в школу надо... спасибо всем)))))) а какая из этих программ простейшая????????? ну из всех пользователей 0