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

Question

Информатика: Pascal в заданном тексте подсчитайте общее количество букв х и у

GelyaNikitina87 · Answer

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 в заданном тексте подсчитайте общее количество букв "х" и "у"

Популярные вопросы