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

Question

Информатика

Аннушка

3 декабря, 16:10

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

+5

Ответы (1)

Знаете ответ?

Савёл · Answer 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.

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