Список предметов

Математика
Литература
Алгебра
Русский язык
Геометрия
Английский язык
Химия
Физика
Биология
Другие предметы
История
Обществознание
География
Українська література
Українська мова
Казак тили
Беларуская мова
Информатика
Экономика
Право
Дан одномерный массив.Проверить встречается ли в нем символ знак вопроса и посчитать сколько раз
спросил от в категории Информатика

1 Ответ

Var s:string;
n,l,k,i:integer;
begin
write (Введите строку: );
readln(s);
n:=0;
l:=0;
k:=0;
for i:=1 to length(s) do
begin
n:=ord(?);
l:=ord(s[i]);
if n=l then k:=k+1;
end;
WRITELN;
if k=0 then writeln (Знак вопроса ни разу не встретился в строке.)
else writeln (Знак вопроса встретился ,k, раз строке.);
end.
ответил от
x
...