Ответы
Ответ дал:
0
program xjkhjh;
uses crt;
Var T: string;
i, summ: byte;
Begin
Writeln('Введи текст: ');
Readln(T);
summ:=0;
For i:=1 to length(T) do
If T[i] in ['y','x'] then inc(summ);
Writeln('Сумма = ',summ);
End.
Похожие вопросы
2 года назад
7 лет назад
7 лет назад
10 лет назад
10 лет назад