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

Question

Информатика

Артя

4 марта, 19:59

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

+4

Ответы (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.

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