Урок 17 Задача 01
Primary tabs
Пользователь вводит символ k и строку s -- посчитайте сколько раз символ k встречается в строке s.
Решение:
program u17z01; var s:string; i,n:integer; begin writeln('vvedite stroku:'); readln(s); n:=0; for i:=1 to length(s) do begin if (s[i]='k') then n:=n+1; end; writeln('Simvol "k" v vashey stroke vstrechaetsya ',n,' raz(a)'); readln(); end.
Консоль:
vvedite stroku: askl;jdfklasdhkjalshd Simvol "k" v vashey stroke vstrechaetsya 3 raz(a)
- Log in to post comments
- 245 reads