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

1.Что такое выход за границы массива? Что опаснее – чтение или запись данных за границами массива? 2. На какой идее основан метод сортировки выбором?
3. Объясните, зачем нужен вложенный цикл в алгоритме сортировки.
4. Как нужно изменить программу сортировки, чтобы элементы массива были отсортированы по
убыванию?
5. Перечислите характеристики типа данных «СПИСОК».
6. Как проверить наличие элемента в списке?​

Показать ответ
Ответ:
ЕлизаветаАлис
ЕлизаветаАлис
04.06.2020 22:27

Я не могу загрузить файлы, но вот коды. Создай файлы и вставь

repeat_.pas:

program repeat_;

var n, k, counter: Integer;

begin

ReadLn(n);

k := 1;

counter := 0;

repeat

if (n mod k = 0) then

begin

counter += 1;

if n <> k then

Write(k, ' ')

else

Write(k, '; ');

end;

k += 1;

until n < k;

WriteLn('всего делителей - ', counter);

end.

while_.pas:

program while_;

var n, k, counter: Integer;

begin

ReadLn(n);

k := 1;

counter := 0;

while (k <= n) do

begin

if (n mod k = 0) then

begin

counter += 1;

if n <> k then

Write(k, ' ')

else

Write(k, '; ');

end;

k += 1;

end;

WriteLn('всего делителей - ', counter);

end.

0,0(0 оценок)
Ответ:
werdam
werdam
04.06.2020 22:27

Объяснение:

Программа для while

program whil;

var x,i,n:integer;

y:real;

 begin

   i:=1;

   n:=0;

   Writeln ('Введите число для которого необходимо определить делители: ');

   Read (x);

   WHILE  (i<=x) DO

       begin

             if (x mod i=0) then

             begin

               y:=x/i;

               n:=n+1;

           Writeln (n,' делитель числа',x,' : ',y );

             end;

               i:=i+1

             end;

             Writeln ('Число делителей числа', x, ' : ',n)

 end.

Программа для repeat

program repeats;

var x,i,n:integer;

y:real;

 begin

   i:=0;

   n:=0;

   Writeln ('Введите число для которого необходимо определить делители: ');

   Read (x);

     repeat

          i:=i+1;

       begin

             if (x mod i=0) then

             begin

               y:=x/i;

               n:=n+1;

            Writeln (n,' делитель числа',x,' : ',y );

             end;

                         end;

                 until i>=x;

                               Writeln ('Число делителей числа', x, ' : ',n)

           end.

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