НУЖНА С ПАСКАЛЬ Ребят, подскажите, кто знает: написала 2 проги в паскаль(самостоятельно), но где-то есть недоработка и они работают неправильно. Компилятор никакой ошибки не выводит, поэтому не могу разобраться в чём дело...
Прикрепляю задания, свои коды и скрины работы прог:

1)Составить программу на Паскале, которая удалит все буквы «о» из текста, который состоит из 6 слов. Текст нужно придумать самостоятельно.

Мой код:

program udalenye;
var s, s1: string;
i: byte;
begin
writeln('введите текст, состоящий из 6 слов');
readln(s);
writeln('исходная строка: ', s);
s1:='';
for i:=1 to length(s) do
if (s[i]<>'о') then s1:=s1+s[i];
writeln('строка после удаления всех букв "о": ', s1);
end.

2)Определить, сколько раз в тексте встречается буква «и».

В качестве входных данных введите текст, состоящий из Ваших фамилии, имени и отчества.

Мой код:

program bukva;
var s: string;
i, k: integer;
len: byte;
begin
k:=0;
writeln('введите имя, фамилию и отчество');
readln(s);
len:=length(s);
for i:=1 to len do
begin
if s[i]='и' then k:=k+1;
end;
writeln('буква "и" встречается в тексте ', k, ' раза(раз)');
end.

все работает нормально

Объяснение:

ты тут код без отступов дал, мб там что-то не так. внизу код с отступами, который я тестил .

если тебе не нравится что выводит на 1 меньше: нумерация массива не с 1 начинается, а с 0. просто добавляй а res (индекс + 1)

Код:

n, m = map(int, input().split())

a= [list(map(int, input().split())) for i in range(n)]

print(a)

k = int(input())

count = 0

res=[]

for i in a:

   for j in range(len(i)):

       if i[j] == 0:

           count += 1

   if count == k:

       res.append( a.index(i))

       break

   else:

       count = 0

if len(res) == 0:

   print(count)

else:

   print(min(res))

ps: лучше так сделай

k = int(input())

line = 0

for i in a:

   count = 0

   for j in range(len(i)):

       if i[j] == 0:

           count += 1

   if count >= k:

       line = a.index(i) + 1

       break

print(line)

from os import system

from random import randint

answ = 'да'

answers = ['камень', 'ножницы', 'бумага']

while answ == 'да':

   system("cls")

   bot_balls = 0

   person_balls = 0

   while bot_balls < 3 and person_balls < 3:

       person = str(input("\nВаш вариант: "))

       bot = answers[randint(0, 2)]

       print("Я выбрал:", bot)

       if person == bot:

           print("Ничья")

       elif (person == answers[0] and bot == answers[1]) or (person == answers[1] and bot == answers[2]) or (person == answers[2] and bot == answers[1]):

           print("Вы победили!")

           person_balls += 1

       elif (person == answers[0] and bot == answers[2]) or (person == answers[1] and bot == answers[0]) or (person == answers[2] and bot == answers[1]):

           print("Вы проиграли!")

           bot_balls += 1

       print("Счет:", person_balls, ":", bot_balls)

   answ = str(input("\nХотите продолжить?: "))

system("cls")

print(" за игру!")

if person_balls > bot_balls:

   print("Вы победили со счетом:", person_balls, ":", bot_balls)

else:

   print("Вы проигради со счетом:", person_balls, ":", bot_balls)