Урок 16 (Решенная задача 1)

Primary tabs

Romakip's picture
Submitted by Romakip on Fri, 10/09/2020 - 12:01

Forums:

Урок 16 (Решенная задача 1)

1)Пользователь вводит символ k и строку s -- посчитайте сколько раз символ k встречается в строке s. 

var s : string;
    i, c : integer;
begin
  c := 0;
  writeln('vvedite stroky');
  readln(s);
  for i := 1 to length(s) do
   if (s[i] = 'k') then
    c := c + 1;
  writeln('kol-vo k = ', c);
end.
  • Log in to post comments
  • 1942 reads
vedro-compota's picture

vedro-compota

Sat, 10/10/2020 - 20:29

решение засчитано

_____________
матфак вгу и остальная классика =)