Pascal

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

Question

Информатика

Арса

24 апреля, 07:19

Pascal

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

+2

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

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