Посчитать количество символов, не являющихся пробелами

@hardiking · Регистрация: 07.10.2015

Будьте добры.Помогите с программой.
Вводится последовательность символов. Признак конца ввода – точка. Посчитать количество символов не являющихся пробелами.
Написать нужно через цикл While.

@bormant · 07.10.2015, 19:56

Pascal

var
  s: String;
  i, n: Integer;
begin
  Write('Введите строку: '); ReadLn(s);
  n:=0; i:=1;
  while (i<=Length(s)) and (s[i]<>'.') do
    if s[i]<>' ' then Inc(n);
  WriteLn('Не пробелов до ".": ',n);
end.

@Puporev · 07.10.2015, 20:05

Так вроде ближе к заданию.

Pascal

uses crt;
var c:char;
    k:integer;
begin
clrscr;
writeln('Введите строку, окончание ввода точка');
k:=0;
repeat
c:=readkey;
write(c);
if c<>' ' then inc(k);
if c='.' then writeln;
until c='.';
write('Не пробелов=',k);{точка тоже не пробел, иначе k-1}
readln
end.

@hardiking 0 / 0 / 0 Регистрация: 07.10.2015 Сообщений: 29
		1
	Посчитать количество символов, не являющихся пробелами 07.10.2015, 19:09. Показов 4197. Ответов 2 Метки нет (Все метки) Будьте добры.Помогите с программой. Вводится последовательность символов. Признак конца ввода – точка. Посчитать количество символов не являющихся пробелами. Написать нужно через цикл While. 0

Опции темы

Посчитать количество символов, не являющихся пробелами

Решение