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

Напишіть алгоритм та намалюйте його блок-схему. Задається число К. Розрахувати та вивести квадрати чисел від 1 до К.

Показать ответ
Ответ:
goshan14
goshan14
18.06.2022 23:51

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

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

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

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

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

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

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

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

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

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

0,0(0 оценок)
Ответ:
максим1716
максим1716
31.10.2021 11:13

 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-бота