for i:=1 to N do
readln(a[i]);
k:=0;for i:=1 to N-1 do
for j:=i+1 to N do
if a[i]*a[j]mod 26=0 then
k:=k+1;
writeln(k);
end.
Разделы презентаций
- Разное
- Английский язык
- Астрономия
- Алгебра
- Биология
- География
- Геометрия
- Детские презентации
- Информатика
- История
- Литература
- Математика
- Медицина
- Менеджмент
- Музыка
- МХК
- Немецкий язык
- ОБЖ
- Обществознание
- Окружающий мир
- Педагогика
- Русский язык
- Технология
- Физика
- Философия
- Химия
- Шаблоны, картинки для презентаций
- Экология
- Экономика
- Юриспруденция
Решение задания 27 на 2-а балла
Содержание
Program z_2018;var N,i,j,k:integer;a:array[1..10000] of integer;begin readln(N); for i:=1 to N do readln(a[i]); k:=0; for i:=1 to N-1 do
Слайды и текст этой презентации
Слайд 2Program z_2018;
var
N,i,j,k:integer;
a:array[1..10000] of integer;
begin
readln(N);
for i:=1 to N do
k:=0;for i:=1 to N-1 do
for j:=i+1 to N do
if a[i]*a[j]mod 26=0 then
k:=k+1;
writeln(k);
end.
![Program z_2018;var N,i,j,k:integer;a:array[1..10000] of integer;begin readln(N); for i:=1 to N do](/img/tmb/7/647959/7b3a94d3ad5218ad97412cbe997f6411-800x.jpg "Решение задания 27 на 2-а балла Program z_2018;var N,i,j,k:integer;a:array[1..10000] of integer;begin readln(N); for i:=1 to")
Слайд 3Program z_2019;
var
N,i,j,k:integer;
a:array[1..10000] of integer;
begin
readln(N);
for i:=1 to N do
readln(a[i]);
k:=0;for i:=1 to N-4 do
for j:=i+4 to N do
if a[i]*a[j]mod 29=0 then
inc(k);
writeln(k);
end.
![Program z_2019;var N,i,j,k:integer;a:array[1..10000] of integer;begin readln(N); for i:=1 to N do](/img/tmb/7/647959/6c0a3392020df51c2e909e9f0e259cb4-800x.jpg "Решение задания 27 на 2-а балла Program z_2019;var N,i,j,k:integer;a:array[1..10000] of integer;begin readln(N); for i:=1 to")
Слайд 5Program z_2020;
var
a:array[1..10000] of integer;
N, i, j, l,r: integer;
begin
readln(N);
for i:=1 to N do
readln(a[i]);l:=0;
r:=0;
for i:=1 to N-1 do
for j:=i+1 to N do
if (a[i] > a[j]) and ((a[i] + a[j]) mod 120 = 0) and ((a[i] + a[j]) > (l + r)) then begin
l:= a[i];
r:= a[j];
end;
writeln(l,' ', r);
end.
![Program z_2020;var a:array[1..10000] of integer;N, i, j, l,r: integer;begin readln(N); for i:=1 to](/img/tmb/7/647959/f8dd40101b3f225336bf8b6aa2d4f533-800x.jpg "Решение задания 27 на 2-а балла Program z_2020;var a:array[1..10000] of integer;N, i, j, l,r: integer;begin readln(N);")
