сколько раз среди даних символов встречается символ + и сколько раз символ

@Sl@vik · Регистрация: 07.06.2010

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

Даны натуральное число n, символы S1,......,Sn. Подсчитать сколько раз среди даних символов встречается символ + и сколько раз символ * ;

@Dtsnoob · 12.06.2010, 00:02

Pascal

uses crt;
var s:array [1..20] of char;
    kp,kz,n,i:integer;
begin
  write ('Kolichestvo simvolov posledovatelnosti =');
  readln (n);
  for i:=1 to n do
    begin
     write ('s[',i,']');
     readln (s[i]);
    end;
     kz:=0; kp:=0;
  for i:=1 to n do
     write (s[i]:5);
  writeln;
  for i:=1 to n do
    begin
     if s[i]='+' then inc(kp);
     if s[i]='*' then inc(kz);
    end;
  writeln ('Kol-vo + =',kp,'  ','kol-vo * =',kz);
  readln
end.

@Sl@vik 0 / 0 / 0 Регистрация: 07.06.2010 Сообщений: 25
		1
	сколько раз среди даних символов встречается символ + и сколько раз символ 11.06.2010, 23:18. Показов 1281. Ответов 1 Метки нет (Все метки) Даны натуральное число n, символы S1,......,Sn. Подсчитать сколько раз среди даних символов встречается символ + и сколько раз символ * ; 0

	12.06.2010, 00:02

Опции темы

сколько раз среди даних символов встречается символ + и сколько раз символ

Решение