1.Отнесите каждое из утверждений к Data Science или к Business Intelligence 1)Цель исследования – прогнозирование будущих результатов с целью принятия обоснованных решений, получение ответов на вопросы “что” и “как”
2)Конечный результат – знания
3) Для исследования используются только структурированные цифровые данные

ну вот так это будет выглядеть с ветвлением и возможностью повторять вычисления без повторного запуска программы.

var a,b,c,d,z: integer; beginwriteln('введите 1 число'); read(a); writeln('введите 2 число'); read (b); writeln('введите 3 число'); read (c); d: =a+b+c; writeln('сумма чисел ',a,'+',b,'+',c,'=',d); writeln ('хотите ли вы решить еще один пример? 1-да, 0-нет'); read (z); while (z = 1) dobeginwriteln('введите 1 число'); read(a); writeln('введите 2 число'); read (b); writeln('введите 3 число'); read (c); d: =a+b+c; writeln('сумма чисел ',a,'+',b,'+',c,'=',d); writeln ('хотите ли вы решить еще один пример? 1-да, 0-нет'); read (z); end; end. 

если первый говорит правду, то он тоже брехун и, значит, не может говорить правду, значит первый брехун, второй сказал правду, так как из них он один говорит правду, а второй брехун.

type adrcel=^element; element=record info: integer; next: adrcel; end; var start,last,new_el: adrcel; i: integer;

procedure del2(var start: adrcel);

var

p: adrcel;

begin

p: =start^.next;

if p< > nil then start^.next: =p^.next

end;

begin start: =nil; last: =nil; new_el: =nil; repeat new(new_el); write('info='); readln(new_el^.info);

new_el^.next: =nil; if start=nil thenstart: =new_el; else begin

last: =start;

while last^.next< > nil do last: =last^.next; last^.next: =new_el; end; write('продолжить? (1-да/0-нет): '); readln(i); until i=0; writeln('удалим 2-й элемент');

del2(start);

new_el: =start; while new_el< > nil do begin write(new_el^.info: 4); new_el: =new_el^.next; end; readln; end.

однажды один информатик сидел перед компьютером. а надо сказать, что информатик – это человек будущего, т.е.ребенок. и этому человеку необходимо было сделать слишком много уроков. он долго печатал, устал и захотел отдохнуть. воспользовавшись отсутствием родителей (что бывает достаточно редко), пронырливый информатик решил запустить самую убойную игру. самую – самую, которую родители обещали «удалить». информатик так увлекся, что сам оказался в компьютере, в той самой игре. но что-то ему эта игра быстро разонравилась, когда он оказался внутри ее. здесь грохотали пушки, летали самолеты, ездили танки и надо было быстро реагировать, если ты хочешь остаться в живых. информатику страшно захотелось выйти из игры, для этого ему надо было найти дверь с надписью «выход». о счастье, что он знал, все короткие пути и лазейки в этой игре. из игры он выбрался, но куда же он попал? он увидел большую улицу и много человечков, которые возили тележки с информацией. эти человечки беспрестанно толкали его. они были похожи друг на друга, но один привлек его внимание, т.к. явно был главным. он был самым высоким и имел отличающую его от всех надпись: «проводник». информатик обратился к нему и просил объяснить, где он находится. на что проводник ответил, что это главная улица worda. человечки продолжали суетиться, а информатик разглядывал с любопытством город. неожиданно он заметил, что в тени ползет какое –то существо, похожее на огромную гусеницу. она проползла и легла посередине тротуара. один из работников с тележкой споткнулся об нее, тележка перевернулась, а информация высыпалась. гусеница шустро поползла к рассыпавшимся буквам и начала их надкусывать (ибо! что не съем, то надкушу). увидев это, проводник достал мобильный телефон, набрал вызвал скорую . не прошло и несколько секунд как на реактивном моторе примчалась машина с надписью антивирус. из машины вылезли человечки в белых халатах, сделали ей успокоительный укол. затем посадили в машину и отправили в корзину. вот и сказке конец, а кто слушал – !