Это, конечно, ужасный вариант с "много Copy", но если надо ...
Program primer4;
var s:string; i,k:integer;
begin
writeln('подсчет количества глухих согласных в тексте');
writeln('введите текст');
readln(s);
k:=0;
for i:=1 to length(s) do
if (copy(s,i,1)='к')or(copy(s,i,1)='п')or(copy(s,i,1)='с')or
(copy(s,i,1)='т')or(copy(s,i,1)='ф')or(copy(s,i,1)='х')or
(copy(s,i,1)='ц')or(copy(s,i,1)='ч')or(copy(s,i,1)='ш')or(copy(s,i,1)='щ')
then k:=k+1;
writeln(k);
end.
Пример:
подсчет количества глухих согласных в тексте
введите текст
подсчет количества глухих согласных в тексте
17
В)11
Кто_Придумал_Лимит_В_Двадцать_Символов?
Дано:
Книга содержит 15 страниц.
На каждой странице - 20 строк.
В каждой строке 40 символов
1) 15 * 20 * 40 = 1200 - символов всего.
2) 1200 * 6 = 72000 байтов = 70.31 килобайтов
Ответ: 70.31 килобайтов.
1) 15,6 Мб переводим в гигабайты:
15,6 ÷ 1024 = ~0,015 Гб
2) Находим заполненное:
1,24 + 1,27 + 0,015 = 2,525 Гб
3) Пропорция, чтобы найти количество заполненного в процентах:
16 / 100 = 2,525 / х
Оисюда получаем х = 15,8 %
4) Свободное:
100 - 15,8 = 84,2 %
1.Беспилотных,как мне кажется 2.Не точно,но локатор может быть. 4.Протокол