Дана строка символов. Определить, каких букв больше в этом тексте, больших латинских букв или малых

@N1KOL@Y · Регистрация: 24.02.2013

Author24 — интернет-сервис помощи студентам

Дана строка символов. Определить, каких букв больше в этом тексте, больших латинских букв или малых. (через множества нужно сделать программу)

@Gidropon · 19.03.2013, 22:53

Pascal

program xxx;
 
type stroka = set of char;
  var
    x:string;
    bol,mal:stroka;
var
i,b,m:integer;
 
begin
  bol:=['A'..'Z'];
  mal:=['a'..'z'];
  write('Введите текст используя латинские буквы: ');
  readln(x);
  for i:=1 to length(x) do
    begin
      if x[i] in bol then
        inc(b)
      else if x[i] in mal then
        inc(m);
    end;
  if b>m then
    writeln('Больше заглавных букв')
  else if m>b then
    writeln('Больше строчных букв')
    else 
      writeln('Количество заглавных и строчных букв равно');
end.

@N1KOL@Y 0 / 0 / 2 Регистрация: 24.02.2013 Сообщений: 47
		1
	Дана строка символов. Определить, каких букв больше в этом тексте, больших латинских букв или малых 19.03.2013, 20:05. Показов 5230. Ответов 1 Метки нет (Все метки) Дана строка символов. Определить, каких букв больше в этом тексте, больших латинских букв или малых. (через множества нужно сделать программу) 0

	19.03.2013, 22:53

Опции темы

Дана строка символов. Определить, каких букв больше в этом тексте, больших латинских букв или малых

Решение