Турбо паскаль. написать программу, которая считает - вопрос №9509452 от cfgcgj 04.06.2021 00:38

Question

Информатика: Турбо паскаль. написать программу, которая считает количество буквы в строке. допустим букву а в любом регистре, строка вводится с клавиатуры. входной файл: предложение выходной файл: количество буквы

cfgcgj · Answer

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);  ReadKeyend....