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

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

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

Question

Информатика

Зиналета

8 апреля, 11:03

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

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

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

+1

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