Разделы презентаций


Решение задания 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

Слайды и текст этой презентации

Слайд 1


Слайд 2Program 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
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

Слайд 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

Слайд 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

Обратная связь

Если не удалось найти и скачать доклад-презентацию, Вы можете заказать его на нашем сайте. Мы постараемся найти нужный Вам материал и отправим по электронной почте. Не стесняйтесь обращаться к нам, если у вас возникли вопросы или пожелания:

Email: Нажмите что бы посмотреть 

Что такое TheSlide.ru?

Это сайт презентации, докладов, проектов в PowerPoint. Здесь удобно  хранить и делиться своими презентациями с другими пользователями.


Для правообладателей

Яндекс.Метрика