Задача. Написать программу, которая определяет сколько раз в слове повторяется буква.Дан текст ''информатика". Используя функцию COPY
Задача. Написать программу, которая определяет сколько раз в слове повторяется буква.Дан текст ''информатика". Используя функцию COPY
Гость
Ответ(ы) на вопрос:
Гостьprogram Project1;
var x, n:integer; byk:char;
const a:string='информатика';
begin
readln(byk);
n:=0;
for x:=0 to 10 do
if Copy(a, x+1, 1)[1]=byk then n:=n+1;
writeln(n);
end.
Не нашли ответ?
Похожие вопросы