Даны две строковые величины. написать программу подсчета букв 'в' в меньшей по длине величина. в случае равенства длин напечатать значение количества букв 'в' в каждой строковой величине.

242

365

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

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

Neuch18

Информатика

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

Var n, m: integer; s,d: string; procedure fd (var z: string; t: integer); var i,k: integer; begin for i : = 1 to t do begin if z[i] = 'в' then k: = k +1; end; writeln(k); end; begin d: ='написать программу подсчета букв "в" в меньшей по длине величина прпрпрп ролроллолшл нг'; s: ='в случае равенства длин напечатать значение количества букв "в" в каждой строковой величине'; n: =length(s); m: =length(d); if n = m then begin fd(d,m); fd(s,n); end else if n < m then fd(s,n) else fd(d,m); end.

PaFaS123

Информатика

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

Uses crt; var stroka, podstroka: string; poz, i: integer; begin clrscr; write(' stroka : '); readln (stroka); for i: = 1 to length (stroka) do if stroka[i]=',' then stroka[i]: ='.'; writeln(' zamena : ', stroka); writeln; write(' posstroka : '); readln (podstroka); poz: =pos(podstroka, stroka); delete (stroka,poz,length(podstroka)); writeln(' udalili : ', stroka); readln; end.