Одно из "быстрых по написанию" решений, не учитывающих фактор наличия упорядоченности массивов. Это разумно: 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
Если в паскале
uses crt;
var v:integer;
begin
writeln('Введи свой возвраст');
read(v);
if v>17 writeln('Я с тобой дружу');
else writeln('Я с тобой не дружу');
end.
Var
i: integer;
a,V,s: real;
begin
writeln ('введи длину ребра куба');
read (a);
V:=a*a*a;
writeln ('объем куба=',v);
s:=6*a*a;
writeln ('площадь боковой поверхности=',s);
end.
Раз последняя цифра равна нулю, то 30 без остатка делится на N.
Делители числа 30: 30, 10, 15, 5, 3, 2, 1.
Всё, что больше 10, и 10 можно сразу отбросить.
30 / 5 = 6 (0)
6 / 5 = 1 (1)
30_10 = 116_5 - не подходит, т.к. 3 цифры
30 / 3 = 10 (0)
10 / 2 = 5 (0)
5 / 2 = 2 (1)
30_10 = 2100_3 - подходит
Ответ: 3.
<span>Одно из фундаментальных понятий информатики, описывающее некоторую последовательность действий – это алгоритм</span>