Определи, для кого сообщение о задержке вылета самолета является актуальной информацией? 1) туриста, прилетевшего в аэропорт. 2) туриста, купившего билет на самолет. 3) животных, отправляющихся вместе с хозяевами в полет. 4) службы упаковки чемоданов туристов.

правильный ответ:   2) туриста, купившего билет насамолет.

1. var a : integer; begin   write('введите число a: '); readln(a);   if a> 0 then a: =a+1 else a: =a-1;   writeln('новое значение числа a: ',a); end. 2. var a,b,c : real; begin   write('введите число a и b: '); readln(a,b);   c: =(a+b)/2;   if a< b then   begin     b: =a*b*2;     a: =c;   end else     begin       a: =a*b*2;       b: =c;     end;   writeln('новые значения a и b: ',a: 6: 2,b: 6: 2); end.

// pascalabc.net 3.0, сборка 1088 function fib(n: integer): longint; begin   if n< 3 then fib: =1 else fib: =fib(n-2)+fib(n-1) end; var   a,b,f,mn: longint;   i: integer; begin   write('введите а и b: '); read(a,b);   if a< b then mn: =a else mn: =b;   i: =1;   repeat       f: =fib(i); inc(i);   until f> =mn;   if f=mn then begin       if a=mn then mn: =b else mn: =a;       if fib(i)=mn then writeln('соседние числа фибоначчи')       else writeln('меньшее - число фибоначчи, большее - не его сосед')       end   else writeln('меньшее - не число фибоначчи, работа закончена') end. тестовые решения: введите а и b: 610 987 соседние числа фибоначчи введите а и b: 500 250 меньшее - не число фибоначчи, работа закончена введите а и b: 610 830 меньшее - число фибоначчи, большее - не его сосед