Выяснить, каких символов в тексте больше

@vasiako · Регистрация: 06.09.2016

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

выяснить, каким символом в заданном тексте больше- цифр или пробелов( не исключая и случай равенства)ю[PASCAL]

Kodzaev · 07.09.2016, 00:50

Pascal

var
  s: string;
  i, spaces, digits: byte;
 
begin
  Write('Введите текст: ');ReadLn(s);
  for i := 1 to Length(s) do
  begin
    if s[i] = ' ' then Inc(spaces);
    if s[i] in ['0'..'9'] then Inc(digits)
  end;
  if spaces > digits then WriteLn('Пробелов больше')
    else if spaces < digits then WriteLn('Цифр больше')
      else WriteLn('Цифр и пробелов поровну');
  ReadLn
end.

@vasiako 0 / 0 / 0 Регистрация: 06.09.2016 Сообщений: 12
		1
	Выяснить, каких символов в тексте больше 07.09.2016, 00:36. Показов 998. Ответов 1 Метки нет (Все метки) выяснить, каким символом в заданном тексте больше- цифр или пробелов( не исключая и случай равенства)ю[PASCAL] 0

Опции темы