Задача 1 Урок 17
Primary tabs
Пользователь вводит символ k и строку s -- посчитайте сколько раз символ k
встречается в строке s.
var s: string; c: char; i, t: integer; begin t := 0; writeln('Введите строку'); readln(s); writeln('Введите символ'); readln(c); for i := 1 to length(s) do if (s[i] = c) then inc(t); writeln(t); readln(); end.
КОНСОЛЬ
Введите строку wegsednhdrfgndszfsghwsrfh Введите символ d 3
- Log in to post comments
- 557 reads
vedro-compota
Sun, 11/28/2021 - 13:26
Permalink
засчитано
засчитано
_____________
матфак вгу и остальная классика =)