Pascal В заданном тексте подсчитайте общее количество букв "х" и "у"
Pascal В заданном тексте подсчитайте общее количество букв "х" и "у"
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы