Число (деление на 2) остаток
978 | 0
489 | 1
244 | 0
122 | 0
62 | 0
31 | 1
15 | 1
7 | 1
3 | 1
1 | 1
Записываем остатки в обратном порядке: 1111100010
Напиши свое ФИО, подсчитай количество букв + 2 пробела = сумма * 16 бит (или на 2 байта) результат готов!
<u>По подробнее можно?!</u>
Не знаю как для других,для меня сложная задача,поэтому сделал её как смог
Это, конечно, ужасный вариант с "много 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