GAECHKA
Твоя помощница в решении задач

Вводится текст. Вывести на печать слова, в которых больше двух букв "о". Определить количество этих слов

Вводится текст. Вывести на печать слова, в которых больше двух букв "о". Определить количество этих слов. Конец ввода F1.
0
вопрос задан

Источник


3 ответа
Вводится текст. Конец ввода F1.Вывести все слова, где больше двух букв "о". Подсчитать кол-во этих слов.
uses crt;
type a=array[1..10] of string;
var st:a;ch:char;
k,t,i:integer;
begin
  t:=0;i:=1;
  repeat
  ch:=readkey;
  while(ch=#0)=false do begin
    if(ch=' ')=false then begin
      if(ch='o') then t:=t+1;
      st[i]:=st[i]+ch;
    end
    else if(t>2) then begin
    k:=k+1;
    writeln(st[i]);
    end;
   
    t:=0;
  end;
  ch:=readkey;
  until(ch=#112)=true;
  writeln(k);
  end.
vseochenslojno, пожалуйста, больше никогда не сравнивайте логические переменные с логическими константами. Когда Вы так делаете, где-то умирает маленький пушистый котёнок. Вот так пишите:
  while not(ch=#0) do begin
    if not(ch=' ') then begin
  until ch=#112;