Вопрос школьника по предмету Информатика
Pascal, строки
Определить сколько раз встречается “о” в первом слове строки.
Ответ учителя по предмету Информатика
var s: string; c: char; i: integer;
count: integer;
begin
readLn(s);
read(c);
count := 0;
for i := 1 to length(s) do
if s[i] = c then
inc(count);
writeLn(count);
readLn;
end.
Похожие вопросы от пользователей
Написати повідомлення на тему «Найбільше заохочення злочину — безкарність»