Посчитать число символов с кодом 220 среди символов s1,s2,.,sn

@Митюнька · Регистрация: 31.07.2012

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

Даны символы s1, s2... Известно что символ s1 отличен от точки, но среди данных символов есть хотя бы одна точка. Пусть s1,s2,...,sn - символы данной последовательности, предшествующей первой точке (n заранее не известно!).
Посчитать число символов с кодом 220 среди символов s1,s2,...,sn.

Bringoff · 29.11.2012, 22:08

Точно с кодом 220? Как ты его с клавы введешь? Но если таки он, тогда...

Pascal

var s:string;
    ch:char;
    i,count:integer;
  begin
   Writeln('Stroka simvolov:');
   Readln(s);
   for i:=1 to length(s) do
    begin
     if s[i]='.' then break;
     if ord(s[i])=220 then count:=count+1;
    end;
    Writeln(count);
  end.

@Митюнька · 29.11.2012, 23:18 **[ТС]**

там точно код 220, у нас скорее подразумевается что код будет заложен в самой программе, не вводя его с клавиатуры

Bringoff · 29.11.2012, 23:24

Pascal

var s:string;
    ch:char;
    i,j,count:integer;
  begin
  randomize;
  for j:=1 to 200 do
   begin
    i:=random(250);
    s[j]:=chr(i);
   end;
   for j:=1 to length(s) do
    begin
     if s[i]='.' then break;
     if ord(s[i])=220 then count:=count+1;
    end;
    Writeln(count);
  end.

пожалуй, так...

@Митюнька 0 / 0 / 0 Регистрация: 31.07.2012 Сообщений: 31
		1
	Посчитать число символов с кодом 220 среди символов s1,s2,.,sn 29.11.2012, 19:36. Показов 620. Ответов 3 Метки нет (Все метки) Даны символы s1, s2... Известно что символ s1 отличен от точки, но среди данных символов есть хотя бы одна точка. Пусть s1,s2,...,sn - символы данной последовательности, предшествующей первой точке (n заранее не известно!). Посчитать число символов с кодом 220 среди символов s1,s2,...,sn. 0

@Митюнька 0 / 0 / 0 Регистрация: 31.07.2012 Сообщений: 31
	29.11.2012, 23:18 [ТС]	3
	там точно код 220, у нас скорее подразумевается что код будет заложен в самой программе, не вводя его с клавиатуры 0

	29.11.2012, 23:24

Опции темы