Pascal abc. определить позицию буквы в строке.

Без проверки того, есть ли символ в строке:
 
Var
   S:string;
   C:char;
   i:integer;
Begin
Write('Введите строку: ');ReadLn(S);
Write('Введите символ: ');ReadLn(C);
Write('Символ "',C,'" встречается на позициях:');
For i:= 1 to Length(S) do
    if S[i] = C then Write(' ',i)
End.

Пример работы программы:

Введите строку: 12345789654621685798546323312125
Введите символ: 5
Символ "5" встречается на позициях: 5 10 17 21 32

С проверкой:

Var
   S:string;
   C:char;
   i:integer;
Begin
Write('Введите строку: ');ReadLn(S);
Write('Введите символ: ');ReadLn(C);
i:=1;
While (S[i] <> C)and(i<Length(S)) do
   i:=i+1;
if S[i] = C then
   Begin
   Write('Символ "',C,'" встречается на позициях:');
   For i:= i to Length(S) do
       if S[i] = C then Write(' ',i)
   End
else
   WriteLn('Данный символ в строке не встречается')
End.

Пример работы программы:

Введите строку: 12312123
Введите символ: 4
Данный символ в строке не встречается

Python

1.

import random

X = int(input())

N_spisok = []

N = 20

for i in range(0, N):

   N_random = random.randint(0, N)

   N_spisok.append(N_random)

print(N_spisok)

for i in N_spisok:

   if i == X:

       print(i)

   else:

       break

2.

time = int(input())

zima = [12, 1, 2]

vesna = [3, 4, 5]

leto = [6, 7, 8]

osen = [9, 10, 11]

if time in zima:

   print('Зима')

elif time in vesna:

   print('Весна')

elif time in leto:

   print('Лето')

else:

   print('Осень')

3.

a = [1, 2, 3, 4, 5, 8, 11, 13, 14, 16, 17]

a.remove(8)

a.append(22)

print(a)

Нет не успеет

Объяснение:

program kopilka;

uses crt;

var x, c, p, y:real; i, m:integer; {x - деньги на счёте, с - цена автомобиля, p - процентная ставка, y - срок вклада в годах; m - срок вклада в месяцах, i - счётчик цикла}

begin

clrscr; {очистка экрана}

write ('Введите начальную сумму вклада, рублей: ') ;

readln(x);

write ('Введите желаемую сумму накопления, рублей: ') ;

readln(c);

write ('Введите срок накопления, лет: ') ;

readln(y);

m:=round(y*12); {здесь мы срок в годах пересчитыаем в месяцы}

write ('Введите ежемесячно начисляемый процент (%) : ') ;

readln(p); p:=p/100; {здесь из числа процентов получаем десятичную дробь}

for i:=1 to m do

x:=x+x*p; {каждый месяц сумма на вкладе увеличивается на p процентов, причем в каждом следующем месяце происходит капитализация вклада, и процент начисляется на возросшую за предыдущий месяц сумму}

if x<c then write('Вы накопили ',x:6:2,' рублей, это меньше запланнированной суммы в ',c:6:2,' рублей')

else write('Ваша цель по накоплению ',c:6:2,' рублей достигнута: вы накопили ',x:6:2,' рублей') ; {здесь мы сравниваем накопленную за m месяцев сумму с желаемой суммой с и, в зависимости от результата, делаем вывод}

readln;

end.