Перевести с pascal в c# uses crt;
var s1,s2,s3: string;
ch: char;

function Kol(c: char; s: string):byte;
var i,k:byte;
begin
k:=0;
for i:=1 to length(s) do
if upcase(s[i])=upcase(c) then inc(k);
Kol:=k;
end;

begin
writeln('Введите букву для подсчета: '); readln(ch);
write('s1='); readln(s1);
write('s2='); readln(s2);
write('s3='); readln(s3);
write('Общее количество букв "',ch,'"=',Kol(ch,s1)+Kol(ch,s2)+Kol(ch,s3));
readln;
end.​

arseniypiv150    2   09.09.2020 01:16    1