Pascal

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

Question

Информатика

Ефросиныч

18 апреля, 12:44

Pascal

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

+5

Ответы (1)

Знаете ответ на вопрос?

Филарет · 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.

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

Pascal

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