Program gt;
var n,a,i,s,q:integer;
begin
read(n);
read(a);
s:=0;
for i:=1 to n do
begin
read(q);
if(q mod a=0)then s:=s+q;
end;
writeln(s);
end.
Одно из "быстрых по написанию" решений, не учитывающих фактор наличия упорядоченности массивов. Это разумно: 10 баллов за решение - не та цена, за которую есть смысл составлять и отлаживать эффективный алгоритм поиска по упорядоченным массивам.
// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
begin
var x:=ArrRandom(ReadInteger('p='),-20,20).Sorted;
var y:=ArrRandom(ReadInteger('q='),-10,15).Sorted;
var z:=ArrRandom(ReadInteger('r='),1,18).Sorted;
x.Println; y.Println; z.Println;
var r:=x.Intersect(y.Intersect(z));
if r.Count=0 then Writeln('Нет общих элементов')
else begin Write ('Общие элементы: '); r.Println end
end.
<u><em>Тестовое решение</em></u>
p= 15
q= 13
r= 18
-19 -16 -15 -11 -7 -7 -2 0 0 2 4 7 10 14 20
-8 -6 -4 -4 -4 -3 -1 4 4 9 13 13 15
1 1 2 2 2 4 4 5 6 9 10 12 12 14 14 15 15 17
Общие элементы: 4
Інтернет речей – одна з найпопулярніших концепцій в сучасній футурології. І більш того, одна з тих небагатьох, що вже перестають бути концепціями і втілюються в життя
Згідно з найбільш поширеним формулюванням, інтернет речей – це концепція обчислювальної мережі фізичних предметів (тобто власне, речей), які оснащені такими собі технологіями для взаємодії один з одним.
Концепція передбачає, що інтернет речей здатний серйозно вплинути на розвиток сучасного суспільства, оскільки дозволить багатьом процесам відбуватися без участі людини.
Звучить все це настільки ж переконливо, наскільки незрозуміло.
Спробуємо розібратися, що таке насправді інтернет речей, хто і як його створить, кому і навіщо він може бути потрібен. Експертом Лекторію НВ в цьому питанні виступає Олексiй Турчин, директор з розвитку IТ-бiзнесу Ericsson в Україні і Євразії.
Program First;
var
x, y : longint;
begin
readln(x);
y:=(x-7)*(x+5);
writeln(y);
end.