• Составте программу на языке программирования паскаль:Подсчитать количество букв ''а'' в заданном тексте

     

Ответы 1

  • var n,i:integer;

    Begin

      read(n);

      for i:= 2 to n-1 do

        if n mod i = 0 then writeln('No');

    End.

     

    var n,i:integer;

    s:string;

    Begin

      read(s);

      for i:= 1 to length(s) do

        if s[i]="a" then n:=n+1;

      writeln(n);

    End.

     

    Скорее всего так

    • Автор:

      tigerh0vj
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years