Подсчитать количество слов, в которых буква "а" входит не менее двух раз. (слова разделены пробелом). (программа Паскаль)

Ответы

USES Crt;
VAR
  A : STRING [255]; KS, KB, I, N : INTEGER;
BEGIN
  ClrScr;
  WriteLn('Введите текст '); ReadLn(A);
  A:=A+' ';
  N:=Length(A);
  KB:=0; KS:=0; I:=1;
  While (I<=N) DO Begin
     While (A[I]<>' ') DO Begin
        IF (A[I]='a') OR (A[I]='A') THEN KB:=KB+1;
        I:=I+1;
     End;
     IF KB>2 THEN KS:=KS+1;
     KB:=0;
     I:=I+1;
  End;
  WriteLn(' Количество слов, в которых буква "а" встречается не менее двух раз = ',ks)
END.

Спасибо

Ответ дал: Гость

пошаговое объяснение:

для того чтобы десятичную дробь разделить на натуральное число можно представить десятичную дробь в виде обыкновенной, затем числитель разделить на это число, а знаменатель оставить прежним(0.4: 2=(4/2)/10)

или

можно представить натуральное число и десятичную дробь в виде обыкновенных дробей и десятичную дробь умножить на дробь (которая была изначально натуральным числом) обратную делителю (поменять числитель и знаменатель местами)(0,4/2=(4/10)/(2/1)=(4*1)/(10*2))

или

нужно перенести запятую в десятичной дроби вправо настолько знаком чтобы дробь стала натуральным числом а затем число на которое мы делаем приписать сколько ноликов на сколько знаков мы перенесли запятую. затем просто разделить бывшую десятичную дробь на натуральное число(0,4/2=4/20=1/5=0,2)

Ответ дал: Гость

ответ:

пошаговое объяснение: