решить б (второе), сижу на уроке !(​

1)program p1;

var m,n: integer;

begin

write('вводите число: '); readln(n);

if n> =100 then

begin

m: = n mod 10;

writeln('последняя цира: ',m);

m: =n div 10 mod 10;

writeln('предпоследняя цира: ',m);

end;

end.

2)program p2;

var t1,t2,t3,d1,d2,d3,v1,v2,v3: integer;

vsr: real;

begin

write('вводите время езды(ч): '); readln(t1,t2,t3);

write('вводите скорость(км/ч): '); readln(v1,v2,v3);

d1: =v1*t1;

d2: =v2*t2;

d3: =v3*t3;

vsr: =(d1+d2+d3)/(t1+t2+t3);

writeln('средяя скорость= ',vsr: 1: 2,'км/ч');

end.

1. С клавиатуры вводится N вещественных чисел (N задается пользователем). Определить, сумму минимального и максимального чисел.

arr = []

N = int(input())

for i in range(N):

   n = float(input())

   arr.append(n)

print(min(arr) + max(arr))

2. С клавиатуры вводится текст из заглавных латинских букв. Текст заканчивается точкой. Определить, сколько раз в этом тексте встречается буква "К".

st = input('Введите строку: ')

n = 0

for i in st:

   if i == 'К':

       n += 1

print('Буква "К" встречается в строке', n, 'раз')

3. Определить 40-е число Фибоначчи. Числа Фибоначчи формируются по следующему правилу: f1=f2=1; f3=f1=f2;...;fj=fj-2+fj-1

f1 = f2 = 1

N = 40 - 2

while N > 0:

   N -= 1

   f1, f2 = f2, f1+f2

print(f2)

Объяснение:

В первом использовал массив для поиска наибольшего и наименьшего числа.

Во 2-м задал, чтобы искалась русская заглавная буква "К".

В третьем сразу задано 40-е число Фибоначчи, можно заменить на N = int(input()). N = N - 2.