var j, a, b, n: integer;
label 1;
begin
1: randomize;
a: = random (9);
b: = random (9);
write (a, '*', b, '=');
read (n);
if n = (a * b) then writeln ('відповідь вірний! ')
else writeln ('відповідь неправильний! ');
writeln ('продовжуватимеш? ');
writeln ('якщо так то натисни 1');
writeln ('якщо немає то натисни 2');
read (j);
if j = 1 then goto 1;
if j = 2 then writeln ('до побачення! ');
end.
начебто так, точно не пам'ятаю.
Так как язык не указан, приведу пример на 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.Общение. Интернет – это средство коммуникации. С социальных сетей, электронной почты, форумов можно общаться со всем миром. Эта система позволяет получать письма с другого конца земли в течение нескольких минут.
МОЖНО И КОРОЧЕ НАПИСАТЬ!