ЧТО ДЕЛАЕТ ЭТА ПРОГРАММА?
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.

1

Ответы и объяснения

2013-12-13T17:56:49+00:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.
Подсчитывает кол-во вхождений символа1 и символа2 в сторку, и говорит какого больше или равное колво вхождений
с оговорками
только программа совсем не оптимально написана и делает кое-какие ошибки изза этого
если надо могу написать лучше