Дан текст из букв и знаков. Подсчитать общее количество цифр и знаков ‘+’,’-‘,’*’, входящих в текст.

@0193456ali · Регистрация: 14.01.2013

Kodzaev · 17.01.2013, 13:27

Pascal

Const
  m=['0'..'9','+','-','*'];
Var
  s: String;
  i,k: Integer;
BEGIN
Writeln('Введите строку: ');
Readln(s);
For i:=1 to Length(s) do
If s[i] in m Then Inc(k);
Writeln('Общее кол-во цифр и знаков "+","-","*" = ',k);
END.

@0193456ali · 17.01.2013, 21:59 **[ТС]**

спасибо большое...а то с новой училкой ничего не понятно!

Комментарий модератора

Если какой-либо пост на форуме показался вам полезным, нажмите кнопку "Спасибо" внизу самого поста

@0193456ali 0 / 0 / 0 Регистрация: 14.01.2013 Сообщений: 23
		1
	Дан текст из букв и знаков. Подсчитать общее количество цифр и знаков ‘+’,’-‘,’’, входящих в текст. 17.01.2013, 12:23. Просмотров* 2789. Ответов 2 Метки нет (Все метки) Дан текст из букв и знаков. Подсчитать общее количество цифр и знаков ‘+’,’-‘,’*’, входящих в текст. 0

Опции темы

Дан текст из букв и знаков. Подсчитать общее количество цифр и знаков ‘+’,’-‘,’*’, входящих в текст.

Решение