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

Решить нужно только одну на выбор Задание 1: Составь программу.

Валентина прогуляла урок по математике. Учитель решил пошутить над нерадивой ученицей и попросил ее на уроке перечислить все положительные делители некоторых целых чисел. С маленькими числами она быстро справилась, но большими проблема ученице, составьте программу, которая будет запрашивать любые целые числа и выводить все положительные делители этого числа.

Подсказка: Ввод чисел осуществляется до тех пор, пока не будет введено число 0.

Пример: для числа 10 делители: 1, 2, 5, 10

Задание 2:

Составь программу.

Спортсмен-лыжник начал тренировки, пробежав в первый день 10 км. Каждый следующий день он увеличивал длину пробега на К км больше чем в предыдущий день (К –целое число, 0 < К < 100). Необходимо определить, после какого дня общий суммарный пробег лыжника за все дни превысит М км (М –целое число, 0 < М < 100).

Подсказка: Вывести найденное количество дней K.

Пример: если К=5, М=50, ответ: 8 дней

Показать ответ
Ответ:
gordeevlogain2
gordeevlogain2
31.05.2022 02:01

program p1;

uses crt;   вывод окошка

const N = 30;

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

i, max, max2 :integer;

begin

 

 for i:=1 to N do begin  вывод элементов массива с рандома

a[i]:=  random (100);

 write( a[i]:4);

 end;

         writeln;

   max:= a[1];  принимаем первый элемент массива за макс

   max2:= a[1];  принимаем первый элемент массива за макс

   

  for i:=1 to N do begin              находим первый max                                                                  

    if  max<a[i] then

      max:= a[i];

      end;

       

      for i:=1 to N do begin                            находим второй max2

        if (max2<a[i]) and ( a[i]<> max) then

         max2:= a[i];

         end;

         

         writeln('max=',max);

         writeln('max2=',max2);

         end.

0,0(0 оценок)
Ответ:
Лапулька111
Лапулька111
29.12.2021 07:36

var

 A: array[1..255] of integer;

 N, i, min, k: byte;

begin

 writeln(' Массив какого размера вы хотите задать? ');

 write('  N = ');

 readln(N);

 writeln(' Введите ', N, ' элементов массива(через пробел):');

 write('  ');

 for i := 1 to N do

  read(a[i]);  //Вводим элементы массива

 N := N div 2; //Количество четных номеров массива.

 min := a[2];  //Минимальный элемент

 k := 2;       //и его начальный номер.

 for i := 2 to N do

   if a[2 * i] < min then //Если находится элемент меньше min,

    begin

      min := a[2 * i]; //то он становится минимальным.

      k := 2 * i //Запоминаем номер минимального элемента.

    end;  

 write(' Минимальный элемет среди четных');

 writeln(' номеров равен: a[', k, '] = ', min)

end.

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