Технический форум - Показать сообщение отдельно

AlexZir · 29.10.2011, 16:43

Вычислительная часть программы на языке Pascal:

Код:

n:=0;
for i:=1 to length(s) do
if (s[i] in ['*',':',';']) then inc(n);
writeln(n);

Отальное допишите сами

29.10.2011, 16:43	#3 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	Вычислительная часть программы на языке Pascal: Код: n:=0; for i:=1 to length(s) do if (s[i] in ['*',':',';']) then inc(n); writeln(n); Отальное допишите сами

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070