Задача 1 Урок 16
Primary tabs
Пользователь вводит символ k и строку s -- посчитайте сколько раз символ k встречается в строке s.
var i, p: integer; s, k: string; begin p := 0; writeln('vvedi stoky'); readln(s); writeln('vvedi simvol'); readln(k); for i := 1 to length(s) do begin if(s[i] = k) then p := p + 1; end; writeln(p); readln(); end.
- Log in to post comments
- 1103 reads
vedro-compota
Sun, 08/22/2021 - 13:38
Permalink
решение засчитано
решение засчитано
_____________
матфак вгу и остальная классика =)