Даны две фамилии. определить, сколько раз во втором слове встречается первая буква первой фамилии. please, нужно написать программу на pascal abc.net, используя служебное слово string.

242

257

Посмотреть ответы 3

Ответы на вопрос:

Кобра228322

Информатика

4,5(8 оценок)

// pascalabc.net 3.1, сборка 1230 от 27.04.2016 begin var s: =readlnstring('> ').towords; var c: =upcase(s[0][1]); // первая буква первого слова var w: string: =s[1].toupper; // второе слово на верхнем регистре var n: =0; for var i: =1 to w.length do if pos(c,w[i])> 0 then inc(n); writeln('буква "',s[0][1],'" встретилась во втором слове ', n,' раз(а)') end. тестовое решение > васильев воеводченков буква "в" встретилась во втором слове 3 раз(а)

demkivskabogdan

Информатика

4,6(22 оценок)

//pascal abc.net v3.1 сборка 1219 var s,s1: string; i,k: integer; c: char; begin readln(s); s1: =copy(s,pos(' ',s),length(s)-pos(' ',s)+1); c: =s[1]; while (pos(upcase(c),s1)< > 0) do begin delete(s1,pos(upcase(c),s1),1); inc(k); end; while (pos(lowcase(c),s1)< > 0) do begin delete(s1,pos(lowcase(c),s1),1); inc(k); end; writeln('count=',k); end. пример ввода: резванов рерзялков пример вывода: count=2