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

Question

Pascal

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

Answer 1

program xjkhjh;

uses crt;
Var T:string;

 i, summ:byte;

Begin  

Writeln('Введи текст: ');

 Readln(T);

 summ:=0;  

For i:=1to length(T)do

  If T[i]in['y','x']then inc(summ);  

Writeln('Сумма = ',summ);

End.