Var s:string; c:char; i,k:integer;
begin
writeln('Введите предложение');
readln(s);
write('Введите букву: ');
readln(c);
k:=0;
for i:=1 to length(s) do if s[i]=c then k:=k+1;
writeln('k=',k);
<span>end.
Пример:
Введите предложение
С клавиатуры вводится предложение и буква.
Введите букву: в
<span>k=4</span></span>
400 Мбит/с = 400мбит/с*1024= 409 600 Кбит/сек
409 600 кбит/сек = 419 430 400 бит/сек
419 430 400 бит /8 = 52 428 800 байт
52 428 800 байт / 1024 = 51 200 Килобайт
51 200 килобайт / 1024= 50 Мегабайт
Ответ: 50 Мегабайт
Извини здесь не получиться написать посмотри примеры в учебнике
1 <span>объективной
2 </span><span>достоверной
3 </span><span>понятной
4 </span><span>актуальной
5 </span><span>органов зрения
6 </span><span>органов осязания
7 </span><span>частично дискретно, частично непрерывно
8 </span><span>процесс обработки информации
9 </span><span>разговор по телефону
</span>10 <span>в наличии строгих правил грамматики и синтаксиса
11 </span><span>байт, килобайт, мегабайт, гигабайт
12 </span><span>клавиатура
13 </span><span>экран дисплея
14 п</span><span>роцессор
15 </span><span>В системном блоке
16 </span><span>Для временного хранения информации
17 </span><span>Модем
18 </span>Клавиатура, <span>Сканер
19 </span><span>Принтер, Монитор
20 </span><span>Принтер
21 </span><span>программа или данные, имеющие имя и хранящиеся в долговременной памяти
22 </span><span>имени и расширения
23 </span><span>пользователь
24 </span><span>программа при его создании
25 </span><span>3 символа
26 </span><span>отформатирован
27 </span><span>12345.BMP</span>