Решить нужно только одну на выбор Задание 1: Составь программу.
Валентина прогуляла урок по математике. Учитель решил пошутить над нерадивой ученицей и попросил ее на уроке перечислить все положительные делители некоторых целых чисел. С маленькими числами она быстро справилась, но большими проблема ученице, составьте программу, которая будет запрашивать любые целые числа и выводить все положительные делители этого числа.
Подсказка: Ввод чисел осуществляется до тех пор, пока не будет введено число 0.
Пример: для числа 10 делители: 1, 2, 5, 10
Задание 2:
Составь программу.
Спортсмен-лыжник начал тренировки, пробежав в первый день 10 км. Каждый следующий день он увеличивал длину пробега на К км больше чем в предыдущий день (К –целое число, 0 < К < 100). Необходимо определить, после какого дня общий суммарный пробег лыжника за все дни превысит М км (М –целое число, 0 < М < 100).
Подсказка: Вывести найденное количество дней K.
Пример: если К=5, М=50, ответ: 8 дней
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.
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.