Турбо Паскаль. Написать программу, которая считает количество буквы в строке. Допустим букву "а" в любом регистре, строка вводится с клавиатуры.

входной файл: предложение

выходной файл: количество буквы

Question

Информатика

Холси

19 января, 21:53

Турбо Паскаль. Написать программу, которая считает количество буквы в строке. Допустим букву "а" в любом регистре, строка вводится с клавиатуры.

входной файл: предложение

выходной файл: количество буквы

+4

Ответы (1)

Знаете ответ на вопрос?

Шакти · Answer 1

uses Crt;

const

n=100; { мах длина строки }

var

s:string[n];

i, k:integer;

begin

ClrScr;

Readln (s) ;

k:=0;

for i:=1 to Length (s) do

if (s[i]='а') or (s[i]='А') then Inc (k) ;

Writeln (k) ;

ReadKey

end.