Дана последовательность из n символов. Выяснить, каких символов в последовательности больше,запятых или точек с запятой.(Не исключая случай равенства)

@Black4Tech · Регистрация: 16.09.2013

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

Помогите пожалуйста!

@Sead · 05.11.2013, 14:00

Pascal

uses crt;
var s:string;
i,n,k:integer;
begin
writeln('vvod stroki');
readln(s);
for i:=1 to length(s) do begin
if s[i]=';' then inc(n);
if s[i]=',' then inc(k);
end;
if n=k then writeln('Kol-vo , i ; ravno') else if n>k then
writeln('; bolshe ,') else writeln(', bolsh ;');
end.

Подойдёт?

@Black4Tech 0 / 0 / 0 Регистрация: 16.09.2013 Сообщений: 13
		1
	Дана последовательность из n символов. Выяснить, каких символов в последовательности больше,запятых или точек с запятой.(Не исключая случай равенства) 05.11.2013, 13:45. Показов 2667. Ответов 1 Метки нет (Все метки) Помогите пожалуйста! 0

Опции темы

Дана последовательность из n символов. Выяснить, каких символов в последовательности больше,запятых или точек с запятой.(Не исключая случай равенства)

Решение