Турбо Паскаль. Написать программу, которая считает количество буквы в строке. Допустим букву "а" в любом регистре, строка вводится с клавиатуры. входной файл: предложение выходной файл: количество буквы
Именно файл, клавиатурный ввод и вывод на монитор не устраивают?
У Вас противоречие в вопросе. "строка вводится с клавиатуры." и тут же сказано про "входной файл".
Вы что, работу с файлами уже изучали? Все эти Assign, Open, Close ?
мы отдельно не изучали, мне нужно самой на олимпиаду завтра, можно программу без assign и т.д., вобщем алгоритм только
Понятно. Сейчас Вы увидите, что это совсем не одна строка, как "по-современному".
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.
Благодарю, да, явно не одна строка, но именно к такому я привыкла
Ну вот видите, Вас приучили "к плохому" )))
Вместо того, чтобы писать ЧТО НУЖНО СДЕЛАТЬ, Вас вынуждают описывать КАК ЭТО СДЕЛАТЬ.
Но главное - Вы намного больше тратите времени писанину кода и отладку программы а шанс сделать ошибки намного выше. И пока Вы пишите одну программу, Ваши соседи успевают написать три. Или пять.