Дан текст из строчных латинских букв и цифр ,определить чего больше в этом тексте букв или цифр.
Ответы
Ответ дал:
0
PROGRAM LOL;
VAR S:STRING;
I,K,L:INTEGER;
BEGIN
READLN(S);
for i:=1 to length(s) do
begin
if ('a'<=s[i]) and (s[i]<='z') then
k:=k+1;
if('A'<=s[i]) and (s[i]<='Z') then
k:= k+1;
if ('0'<=s[i]) and (s[i]<='9') then
l:=l+1;end;
if(k>l) then
write('в тексте больше букв')
else write('в тексте больше чисел');
end.
VAR S:STRING;
I,K,L:INTEGER;
BEGIN
READLN(S);
for i:=1 to length(s) do
begin
if ('a'<=s[i]) and (s[i]<='z') then
k:=k+1;
if('A'<=s[i]) and (s[i]<='Z') then
k:= k+1;
if ('0'<=s[i]) and (s[i]<='9') then
l:=l+1;end;
if(k>l) then
write('в тексте больше букв')
else write('в тексте больше чисел');
end.
Ответ дал:
0
if('A'<=s[i]) and (s[i]<='Z') then
k:= k+1; - это зачем? По условию латинские буквы строчные.
k:= k+1; - это зачем? По условию латинские буквы строчные.
Ответ дал:
0
А еще, если букв и чисел поровну окажется, программы выдаст, что чисел больше.
Ответ дал:
0
это для того чтобы он считал и болишие и маленькие буквы
Ответ дал:
0
да я после того как добавил додумал просто добавь if(k=l) then write('одинаковое число букв и чисел');
Ответ дал:
0
Ну тогда еще и русские добавьте... зачем писать то, чего не требуется?
Похожие вопросы
2 года назад
2 года назад
7 лет назад
9 лет назад
9 лет назад
10 лет назад