На олимпиаде по информатике студенты: a, b, c и d заняли первые четыре места. когда их спросили о распределении мест, они дали три ответа: d -первый или в второй; с - первый или а - четвертый; d - второй или в - третий. как распределились места, если в каждом ответе только одно утверждение истинно? решение:

1место занял d. второе место занял c. третье место занял b. четвёртое место занял a.

Начало программы;   объявление переменных n,a,b,c числа типа  double; начал; вывод : введите число  - n-й элемент последовательности; ввод : число n; b приравниваем к 1; цикл пока a не равно n делать     если a не равно n то начало:   b  =  b  *  2;     a: =a+1; конец;   если  если a не равно n то начало:   b: =b*b; a: =a+1; конец;     если  если a не равно n то начало:   b: =b+1; a: =a+1; конец; конец цикла; вывод : число находящееся на месте n месте ==> d; конец программы.

{входит ли начало координат в треугольник } type point = record         x,y: real;       end; var s0,s: real;     pts: array [1..3] of point;     i: integer; begin { считывание координат точек}   for i: =1 to 3 do     begin       writeln('точка ',i,'   x ',' y ');       write('         ');       readln(pts[i].x,pts[i].y);   end;     { вычисляем площадь треугольника abc    через векторное произведение }   s0: =(pts[2].x-pts[1].x)*(pts[3].y-pts[1].y)  -        (pts[3].x-pts[1].x)*(pts[2].y-pts[1].y);   s0: =abs(s0); { вычисляем сумму площадей треугольников  из начала координат }   s: =abs(pts[1].x*pts[2].y - pts[2].x*pts[1].y);   s: =s+abs(pts[2].x*pts[3].y - pts[3].x*pts[2].y); { если   s > s0 , то начало координат вне треугольника }   if s> s0 then writeln('начало координат вне треугольника')   else writeln('начало координат внутри треугольника'); end. на тестовой : точка 1   x   y                  -1 -3точка 2   x   y                  -3 2точка 3   x   y                  4 3начало координат внутри треугольникаточка 1   x   y                -2 0точка 2   x   y                  -3 2точка 3   x   y                  4 3начало координат вне треугольника