Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Задание 27 (окончательный вариант) эффект и неэффект
const delta = 0; // заменяется на любую разумную величину // от нуля до количества элементов минус 1. var n, i, j, s, s11, sn, x : integer; m : array [0..delta] of integer; // массив для эффективной программы a : array [0..100] of integer; // массив для неэффективной программы begin writeln('Расстояние между числами определяется параметром delta внутри программы'); s := 0; // количество пар s11 := 0; // количество чисел, кратных одиннадцати sn := 0; // количество чисел, не кратных одиннадцати writeln ('эффективный алгоритм: введите количество чисел:'); readln (n); writeln ('эффективный алгоритм: введите числа:'); for i := 0 to delta do begin readln (x); m[i] := x; a[i] := x // запоминаем для неэффективного алгоритма end; for i := delta + 1 to n - 1 do begin // считываем очередное число x и вместе с нулевым элементом m[0] определяпем пару // всего возможно 4 варианта для m[0] и x: // кратно-кратно // кратно-некратно // некратно-кратно // некратно-некратно readln (x); a[i] := x; // запоминаем для неэффективного алгоритма if (m[0] mod 11 <> 0) and (x mod 11 <> 0) then begin sn := sn + 1; s := s + s11 end else if (m[0] mod 11 = 0) and (x mod 11 = 0) then begin s11 := s11 + 1; s := s + s11 + sn end else if (m[0] mod 11 = 0) and (x mod 11 <> 0) then begin s11 := s11 + 1; s := s + s11 end else if (m[0] mod 11 <> 0) and (x mod 11 = 0) then begin sn := sn + 1; s := s + s11 + sn end; for j:= 0 to delta - 1 do // сдвигаем элементы массива на один влево begin m[j] := m[j+1]; end; m[delta] := x; // не забываем в последний элемент массива записать x end; writeln('Количество пар=', s); // выводим ответ // Неэффективный алгоритм writeln ('неэффективный алгоритм:'); // readln (n); s := 0; // writeln ('неэффективный алгоритм: введите числа, как при первом вводе:'); // for i := 0 to n - 1 do // begin // readln (x); a[i] := x // end; for i := 0 to n - delta -1 do begin for j := i + delta + 1 to n-1 do begin if a[i]*a[j] mod 11 = 0 then s := s + 1 end; end; writeln('Количество пар=', s); // выводим ответ end.
run
|
edit
|
history
|
help
0
Сортировка массиа прямым выбором
матрица из шариков
practica 2 ejercicio 4
How many letters?
Test
Tri 1.0
Pascal_uzdevumi
solar sysmtem 6 (with random mass m1)
Weather
practica 7 ejercicio 3