Так как язык не указан, приведу пример на SWI-Prolog.
Код:
read_int(Int) :- read(Int), integer(Int).split_int_by_numbers(0, []) :- !.split_int_by_numbers(N, [Number|Ints]) :- Number is mod(N, 10), RestN is div(N, 10), split_int_by_numbers(RestN, Ints).test_to_div(_, []).test_to_div(N, [Number|Ints]) :- mod(N, Number) =:= 0, test_to_div(N, Ints). test(Int) :- split_int_by_numbers(Int, Numbers), test_to_div(Int, Numbers), write(Int), write(" - Yes!"), nl.test(Int) :- write(Int), write(" - No!"), nl.?- read_int(Int), test(Int).
ответ:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
using system;
using system.collections.generic;
using system.text;
namespace laba3v5
{
class program
{
static void main(string[] args)
{
random rnd = new random();
console.write ("k=");
k = convert.toint32(console.;
console.write ("l=");
l = convert.toint32(console.;
int maxvalue = 2^14;
int[] a = new int[k];
int t1 = environment.tickcount;
for (int i = 0; i < k; i++);
{
a[i] = rnd.next(0, maxvalue);
console.write(""+ a[i]);
{
console.writeline();
int t2 = environment.tickcount;
console.writeline("продолжительность работы: " + (t2 - t1) / 1000.0);
int[] b = new int [l];
int t3 = enviroment. tickcount;
for (int i = 0; i < l; i++);
{
b[i] = rnd. next( 0, maxvalue);
console.writeline write (" " + b[i]);
}
console.writeline();
//: ob
do (0++k)+(l+ while (k< =l) & & (l< =n);
//: od
int t4 = enviroment. tickcount;
console.writeline("продолжительность работы: " + (t2 - t1) / 1000.0);
console.writeline ("k=" +k);
console.writeline ("l=" +l);
}
}
}
//k> 1 l> =k n> =l
//дан массив размера n и целые числа k и l (1 < k ≤ l ≤ n).
//найти сумму всех элементов массива, кроме элементов с номерами от k до l включительно.
}
}
}
объяснение:
