(Python)
Дано несколько списков, содержащих курс иностранной валюты с 3 разных обменных пунктов за последние несколько дней. Нужно вычислить среднее значение всех курсов и вывести его на консоль с 5 знаками после запятой.

Enter number of days: 4

Generated prices:

Exchange 1: [67.33, 67.41, 69.55, 68.83]

Exchange 2: [66.85, 68.49, 68.30, 68.77]

Exchange 3: [69.15, 67.72, 70.0, 68.84]

Average price: 68.43667

Указания:

Используйте генератор случайных чисел, чтобы заполнить списки. Вы можете использовать функцию random.uniform(a, b) для генерации случайных дробных чисел между a и b.

Сгенерированные курсы можно не округлять.

Напишите функцию, которая генерирует список случайных чисел в заданном интервале заданной длины.

Курс может колебаться от 65.0 до 70.0

Соедините все списки в один перед подсчётом среднего.

1.
var
  s: string;
  i, count: integer;
begin
  writeln('Vvedite stroky: ');
  readln(s);
  for i := 1 to length(s) - 2 do
    if copy(s, i, 3) = 'abc' then
      count := count + 1;
  writeln('Kol-vo: ', count);
end.
2.
var
  s1, s2: string;
  i, len1, len2: integer;
begin
  writeln('Vvedite stroky 1: ');
  readln(s1);
  writeln('Vvedite stroky 2: ');
  readln(s2);
  len1 := length(s1);
  len2 := length(s2);
  if len1 > len2 then writeln('1 stroka dlinnee')
  else if len1 < len2 then writeln('2 stroka dlinnee')
  else writeln('dlini strok ravnie')
end.
3.
var
  s1, s2, s3: string;
begin
  writeln('Vvedite stroky 1: ');
  readln(s1);
  writeln('Vvedite stroky 2: ');
  readln(s2);
  s3 := s1[1] + s1[2] + s2[1] + s2[2];
  writeln('Novaja stroka: ', s3);
end.

Rem BASIC-256
cls
errors = 0
print "Введите текст > ";

rem Пользователь вводит текст
input a$

rem Перебираем все буквы с начала и до предпоследней
for i=1 to length(a$)-1

rem Если встречаем букву Ч или Щ
if mid(a$, i, 1) = "ч" or mid(a$, i, 1) = "щ" then

rem Тогда проверяем следующую за ней букву.
rem Если это буква я, тогда подсчитываем очередную ошибку
if mid(a$, i + 1, 1) = "я" then errors = errors + 1
end if

rem Переходим к следующей букве
next i

rem Вывод результата
print "Количество ошибок в тексте ";
print errors

rem Конец программы
end