Строки, задание

bender1993 · 21.12.2014, 14:48

В заданном предложении подсчитать, каких букв встречается больше „к“ или „р“.

язык Паскаль

Евгений · 21.12.2014, 16:15

var s:string;
i,k,p:integer;
begin
Writeln('String : '); Readln(s);
k:=0; p:=0;
for i:=1 to Length(s) do
if s[i]='к' then Inc(k)
else
if s[i]='р' then Inc(p);
Writeln;
Writeln('k = ',k);
Writeln;
Writeln('p = ',p);
Readln;
end.

21.12.2014, 14:48	#1 (permalink)
bender1993 Новичок Регистрация: 21.12.2014 Сообщений: 2 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Строки, задание В заданном предложении подсчитать, каких букв встречается больше „к“ или „р“. язык Паскаль

21.12.2014, 14:48
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Так же полезные для вас ответы могут содержаться тут Задание по программированию в Pascal. Строки Задание: распечатать массивы в две строки, один под другим Задание контрольной

21.12.2014, 16:15	#2 (permalink)
Евгений Member Регистрация: 31.03.2010 Адрес: Тульская область Сообщений: 1,309 Сказал(а) спасибо: 11 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 13090	var s:string; i,k,p:integer; begin Writeln('String : '); Readln(s); k:=0; p:=0; for i:=1 to Length(s) do if s[i]='к' then Inc(k) else if s[i]='р' then Inc(p); Writeln; Writeln('k = ',k); Writeln; Writeln('p = ',p); Readln; end.

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