// PascalABC.NET 3.3, сборка 1579 от 18.11.2017 // Внимание! Если программа не работает, обновите версию!
begin var x:=ArrGen(8,i->Ln(i+1.1)); x.Println; var k:=x.Where(t->(Sin(t)>-0.5) and (Sin(t)<=0)).Count; var im:=x.IndexMin; Writeln('На указанном интервале найдено элементов: ',k); Writeln('Минимальный элемент массива, равный ',x[im], ' имеет порядковый номер ',im+1) end.
Результат 0.0953101798043249 0.741937344729377 1.1314021114911 1.41098697371026 1.62924053973028 1.80828877117927 1.96009478404727 2.09186406167839 На указанном интервале найдено элементов: 0 Минимальный элемент массива, равный 0.0953101798043249 имеет порядковый номер 1
Хранение информации: · Носители информации. · Виды памяти. · Хранилища информации. · Основные свойства хранилищ информации. Обработка информации: · Общая схема процесса обработки информации. · Постановка задачи обработки. · Исполнитель обработки. · Алгоритм обработки. · Типовые задачи обработки информации. Передача информации: · Источник и приемник информации. · Информационные каналы. · Роль органов чувств в процессе восприятия информации человеком. · Структура технических систем связи. · Что такое кодирование и декодирование. · Понятие шума; приемы защиты от шума. · Скорость передачи информации и пропускная канала.
Если A, B имеют общий делитель d, то и A + B делится на d. Отсюда идея: найдем наибольший делитель N, меньший N, и представим всё в виде d + (N - d). d будем искать так: найдём наименьший делитель q, не равный 1 (если число составное, он не больше корня из N), тогда d = N/q.
var q, d, n: longint; isfound: boolean;
begin readln(n); isfound := false; for q := 2 to trunc(sqrt(n)) + 1 do if n mod q = 0 then begin d := n div q; write(d, ' ', n - d); isfound := true; break; end; if not isfound then write(1, ' ', n - 1); end.
// Внимание! Если программа не работает, обновите версию!
begin
var x:=ArrGen(8,i->Ln(i+1.1)); x.Println;
var k:=x.Where(t->(Sin(t)>-0.5) and (Sin(t)<=0)).Count;
var im:=x.IndexMin;
Writeln('На указанном интервале найдено элементов: ',k);
Writeln('Минимальный элемент массива, равный ',x[im],
' имеет порядковый номер ',im+1)
end.
Результат
0.0953101798043249 0.741937344729377 1.1314021114911 1.41098697371026 1.62924053973028 1.80828877117927 1.96009478404727 2.09186406167839
На указанном интервале найдено элементов: 0
Минимальный элемент массива, равный 0.0953101798043249 имеет порядковый номер 1