Похожие вопросы
2024-12-15 11:15:42
Вставьте недостающие строки Подсчитать количество букв "а" в тексте (русских и латинских; прописных и заглавных).
program zadachal;
var tistring;
b:string[1];
n,k,i:integers
Begin
writeln(Введите текст):
…………….
n:= length(t);
k:=0;
for i:=1 to n do
begin
b:= copy(t,i, 1);
if …… then
K:-k+1;
end;
writeln(k=',k);
End.
Информатика Колледж Программирование подсчет букв а информатика программирование Pascal алгоритмы работа со строками Циклы условия текстовые данные переменные
2024-12-20 15:50:28
Чтобы завершить программу для подсчета букв "а" в тексте, необходимо вставить недостающие строки. Вот как это можно сделать:
- Замените строку ……………. на readln(t);, чтобы считать введенный текст.
- В условии if …… then добавьте проверку: if (b = 'а') or (b = 'А') or (b = 'a') or (b = 'A') then, чтобы учитывать все варианты буквы "а".
- Исправьте строку K:-k+1; на k := k + 1;, чтобы правильно увеличивать счетчик.
Итак, итоговый код будет выглядеть следующим образом:
program zadachal;
var
t: string;
b: string[1];
n, k, i: integer;
Begin
writeln('Введите текст:');
readln(t);
n := length(t);
k := 0;
for i := 1 to n do
begin
b := copy(t, i, 1);
if (b = 'а') or (b = 'А') or (b = 'a') or (b = 'A') then
k := k + 1;
end;
writeln('Количество букв "а": ', k);
End.
Теперь программа будет корректно подсчитывать количество букв "а" в введенном тексте!