Так как язык не указан, приведу пример на 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
(I - информационный объем текста, K - кол-во символов, i - вес одного символа/бит на символ)
Дано:
K = 290 * 39 * 67 = 757770 шт
Пусть i = 8 бит (Кодировка ASCII)
I - ?
I = K * i = 757770 * 8 бит = 6062160.0 бит
6062160.0 бит = 757770.0 байт = 740.009765625 Кбайт = 0.7226657867431641 Мбайт < 1.44 Мбайт значит можно
ответ да
(I - информационный объем текста, K - кол-во символов, i - вес одного символа/бит на символ)
Дано:
K = 256 * 95 * 80 = 1945600 шт
Пусть i = 8 бит (Кодировка ASCII)
I - ?
I = K * i = 1945600 * 8 бит = 15564800.0 бит
15564800.0 бит = 1945600.0 байт = 1900.0 Кбайт = 1.85546875 Мбайт = 0.001811981201171875 Гбайт
2 - 0.001811981201171875 = 1.998188019 Гбайт
0000 0000 0100 0100
Объяснение:
в (DEC) 68 = 0000 0000 0100 0100 в (BIN) двухбайтовом