Так как язык не указан, приведу пример на 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).Поделитесь своими знаниями, ответьте на вопрос:
Составить алгоритм сложения двух целых чисел B и N , вводимых с клавиатуры. Результат сложения записать в виде переменной Z . По данному алгоритму написать программу в Паскале. Алгоритм алг сложение цел B, N, Z нач ввод B ввод N Z=B+N вывод Z кон алг сложение цел B, N, Z нач ввод B ввод N Z:=B+N вывод Z кон алг сложение цел B, N, Z нач ввод B ввод Z N:=B+Z вывод Z кон Программа в Паскале program summa; var B, N, Z:integer; begin readln(B); readln(N); Z:=B+N; writeln(B); end. program summa; var B, N, Z:integer; begin readln(B); readln(N); Z:=B+N; writeln(Z); program summa; var B, N, Z:integer; begin readln(B); readln(N); Z:=B+N; writeln(Z); end.
В объяснении
Объяснение:
1 Вариант
1. 1)ppt
2. 1) my.doc, bell.txt, song.docx;
3. 3)мышь
4. 1) красного, синего, зеленого
5.Объем сообщения определяется по формуле:
V=l*r,
где l-длина сообщения, r-разрешение.
l=50, т.к.всего в предложении 50 символов (пробелы и знаки препинания являются символами).
r=1 байт=8 бит.
Объем сообщения равен:
V=50*8=400 бит.
6. не понятно, что делать, задания не видно как-то
7.InternetExplorer= 73 110 116 101 114 110 101 116 69 120 112 108 111 114 101 114
8. Нет рисунка собственно
9. 64 бита < 16 байт
10 Кбайт < 10600 байт
10 байт = 80 бит
10. Нет схемы