Подсчитать сколько букв «о» в тексте (программа Паскаль)




Подсчитать сколько букв «о» в тексте
спросил 17 Дек, 18 от cevka в категории школьный раздел


решение вопроса

+7
USES Crt;
VAR
A: STRING [255];  KB N, I: BYTE;
BEGIN
  ClrScr;
  Write('Введите тест ');  ReadLn(A);
  N:=Length(A);
  KB:=0;
  FOR I:=1 TO N DO
      IF (A[I]=’o’) OR (A[I]=’O’) THEN KB:=KB+1;
   WritLn(‘ Количество букв «о» =’,KB);
END.
ответил 17 Дек, 18 от Olenka

Связанных вопросов не найдено

Обучайтесь и развивайтесь всесторонне вместе с нами, делитесь знаниями и накопленным опытом, расширяйте границы знаний и ваших умений.

Популярное на сайте:

Как быстро выучить стихотворение наизусть? Запоминание стихов является стандартным заданием во многих школах. 

Как научится читать по диагонали? Скорость чтения зависит от скорости восприятия каждого отдельного слова в тексте. 

Как быстро и эффективно исправить почерк?  Люди часто предполагают, что каллиграфия и почерк являются синонимами, но это не так.

Как научится говорить грамотно и правильно? Общение на хорошем, уверенном и естественном русском языке является достижимой целью.