В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
alexutkin22241
alexutkin22241
25.02.2020 20:46 •  Информатика

Номер 9 и 8.. : вычислить значения переменной по заданным расчетным формулам и набором данных и составить блок-схему для любой из 2 программ.

Показать ответ
Ответ:
Katya14340
Katya14340
29.03.2020 01:18

Метод find принимает три параметра:

substring (символ/подстрока) — подстрока, которую нужно найти в данной строке.

start (необязательный) — первый индекс, с которого нужно начинать поиск. По умолчанию значение равно 0.

end (необязательный) — индекс, на котором нужно закончить поиск. По умолчанию равно длине строки.

после чего принимается данная функция

>>> string = "Добро !"

>>> start = string.find("п")

>>> end = string.find("ь") + 1

>>> print("Индекс первой буквы 'о' в подстроке:", string.find("о", start, end))

Индекс первой буквы 'о' в подстроке: -1

0,0(0 оценок)
Ответ:
iamzayka
iamzayka
02.08.2020 21:04

 var a: array[1..5] of integer;

     s: char;

     min, i, j, k: integer;

begin

 writeln('Введите массив:');

 for i:=1 to 5 do

 begin

   write('a[',i,'] = ');

   readln(a[i]);

 end;

 

 for i:=1 to 5 do

   write(a[i], ' ');

 writeln;

 

 write('Введите символ (x, y, z): ');

 readln(s);

 

 if (s = 'x') or (s = 'X') then

 begin

   min := a[1];

   k := 1;

   for i:= 2 to 5 do

     if min > a[i] then  

     begin

       min:= a[i];

       k:= i;

     end;

   writeln('Min = ', min, ', Index = ', k);

 end;

 

 if (s = 'y') or (s = 'Y') then

 begin

   for i:= 1 to 5 do

     for j:= 1 to 4 do

       if a[j] > a[j + 1] then

       begin

         k:= a[j];

         a[j]:= a[j + 1];

         a[j + 1]:= k;

      end;

       

   for i:=1 to 5 do

     write(a[i], ' ');

   writeln;                          

 end;

 

 if (s = 'z') or (s = 'Z') then

 begin

   for i:=1 to 5 do

     k:= k + a[i];

     

   writeln('Сумма = ', k);

 end;

end.

 

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота