Question

Pascal

В заданном тексте подсчитайте общее количество букв "х" и "у"

Answer 1

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.