• Pascal

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

Ответы 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.

  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years