Символы в строке

@Giganxxc · Регистрация: 11.10.2010

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

Доброго времени суток, прошу помочь, знаю что задача легкая, но у меня почему то не работает ))))
Задание:
дана строка состоящая из символов, подсчитать количество, "2", "3", "4"..

@WatsOne · 25.10.2010, 11:26

покажите хотя бы что именно не работает.

Pascal

var s:string;
     k,k2,k3,k4:integer;
begin
 k2:=0;
 k3:=0;
 k4:=0;
 write('Введите строку: ');
 readln(s);
 for k:=1 to length(s) do
  case s[k] of
   '2':inc(k2);
   '3':inc(k3);
   '4':inc(k4);
  end;
 writeln('Кол-во 2=',k2);
 writeln('Кол-во 3=',k3);
 writeln('Кол-во 4=',k4);
end.

@Giganxxc · 25.10.2010, 12:14 **[ТС]**

Cпасибо)

@Giganxxc 1 / 1 / 0 Регистрация: 11.10.2010 Сообщений: 73
		1
	Символы в строке 25.10.2010, 11:19. Показов 1075. Ответов 2 Метки нет (Все метки) Доброго времени суток, прошу помочь, знаю что задача легкая, но у меня почему то не работает )))) Задание: дана строка состоящая из символов, подсчитать количество, "2", "3", "4".. 0

@Giganxxc 1 / 1 / 0 Регистрация: 11.10.2010 Сообщений: 73
	25.10.2010, 12:14 [ТС]	3
	Cпасибо) 0

Опции темы

Символы в строке

Решение