Question

ЧТО ДЕЛАЕТ ЭТА ПРОГРАММА?procedure vvod(var st:string[10]; c:string); begin writeln('Ввести'+' '+c); readln(st); end; function kol(c:string;st:string):integer; var k,i:integer; begin k:=0; i:=1; while i<=length(st) do begin if copy(st,i,1)=c then k:=k+1; i:=i+1; end; kol:=k; end; var s,s1,s2:string[10]; Begin vvod(s,'строку'); vvod(s1,'символ первый'); vvod(s2,'символ второй'); if kol(s1,s) >kol(s2,s) then writeln('Символ ',s1,' встречается в строке ',s, kol(s1,s):4,' раз. Это >, чем встречается ',s2) else if kol(s2,s) >kol(s1,s) then writeln('Символ ',s2,' встречается в строке ',s, kol(s2,s):4,' раз. Это >, чем встречается ',s1) else writeln('Количество символов ',s1,' и ',s2,' в строке ',s,' одинаково и =',kol(s1,s):4) ; end.

Answer 1

Подсчитывает кол-во вхождений символа1 и символа2 в сторку, и говорит какого больше или равное колво вхождений