В решении нет ошибок.
Чтобы доказать нужно протрассировать этот алгоритм с разными входными параметрами.
А они могут быть двух типов:
1) Без искомого числа [1,3,9,100,101,200,201]
2) C искомым числом [1,3,9,100,101,200,201,333,666]
Это, конечно, ужасный вариант с "много 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
100111=1*2^0+1*2^1+1*2^2+1*2^5=1+2+4+32=39
101=1*2^0+1*2^2=1+4=5
(перевод в десятичную)
39+5=44
39*5=195
ответ: 44 и 195
1. нарисовать оси абсцисс и ординат и подписать где ось x а где ось y
2. обозначить единичный отрезок
3. обозначить точки которые надо найти