При утере паспорта лучше как можно скорее бежать и писать заявление о пропаже. Ведь у нашедшего документ есть три варианта: оставить на память, отнести в милицию или продать дельцам, которые заменят в нем фото и продадут какому-нибудь мошеннику.
Не каждый отказаться от легких денег. Чем скорее вы явитесь с повинной, тем больше вероятность, что паспорт попадет в базу утерянных, наличие в которой не даст преступникам взять по нему кредит или продать сбежавшему зеку.
Чтобы выяснить, не терял ли кто паспорт вашего нового знакомого, надо пробить серию и номер документа по списку недействительных российских паспортов.
Я думаю, что имеется в виду среднее по значению Pascal : var arr : array[0..2] of integer; { если числа целые } i, j, t : integer; begin read(arr[0], arr[1], arr[2]); // самый простой это отсортировать массив // в данном случае можно использовать сортировку "пузырьком" for i := 0 to 2 do for j := 0 to 2 do if arr[ j ] > arr[ j + 1] begin t := arr[ j ]; arr[ j ] := arr[ j + 1]; arr[ j + 1 ] := t; end; //Конечно, среднее по значению число будет храниться в элементе arr[1] writeln(arr[1]); end. На случай, если в учебнике просят среднее арифметическое, понятно, что нужно просто вывести ( arr[0] + arr[1] + arr[2] ) / 3 Если есть какие-то вопросы, то можете написать личное сообщение
Program drawFigure; uses graph; var gD,gR:integer; procedure drawHouse(x,y:word); const wallSide=70; windowSide=20; var houseRoof:array[1..4] of pointtype; begin setFillStyle(1,10); bar(x,y-wallSide,x+wallSide,y); rectangle(x,y-wallSide,x+wallSide,y); setFillStyle(1,1); bar(x+wallSide div 2-windowSide div 2,y-wallSide+wallSide div 2-windowSide div 2, x+wallSide div 2-windowSide div 2+windowSide,y-wallSide+wallSide div 2-windowSide div 2+windowSide); rectangle(x+wallSide div 2-windowSide div 2,y-wallSide+wallSide div 2-windowSide div 2, x+wallSide div 2-windowSide div 2+windowSide,y-wallSide+wallSide div 2-windowSide div 2+windowSide); setFillStyle(1,2); houseRoof[1].x:=x; houseRoof[1].y:=y-wallSide; houseRoof[2].x:=x+wallSide; houseRoof[2].y:=y-wallSide; houseRoof[3].x:=x+wallSide div 2; houseRoof[3].y:=y-wallSide-wallSide div 2; houseRoof[4].x:=x; houseRoof[4].y:=y-wallSide; fillPoly(4,houseRoof); end; procedure drawTree(x,y:word); const treeFH=90; treeFW=8; var ci:byte; branchFH,branchFW:byte; begin setFillStyle(1,6); bar(x,y-treeFH,x+treeFW,y); for ci:=1 to 6 do begin branchFH:=random(5)+1; branchFW:=random(8)+10; bar(x-branchFW,y-treeFH+ci*10,x,y-treeFH+ci*10+branchFH); bar(x+treeFW,y-treeFH+ci*10,x+treeFW+branchFW,y-treeFH+ci*10+branchFH); end; end; begin randomize; initgraph(gD,gR,''); drawHouse(100,280); drawHouse(230,270); drawHouse(430,290); drawHouse(330,180); drawTree(195,278); drawTree(325,275); drawTree(265,350); drawTree(360,290); drawTree(400,240); drawTree(580,285); drawTree(110,370); readln; closeGraph; end.
Не переклеено ли фото на паспорте
При утере паспорта лучше как можно скорее бежать и писать заявление о пропаже. Ведь у нашедшего документ есть три варианта: оставить на память, отнести в милицию или продать дельцам, которые заменят в нем фото и продадут какому-нибудь мошеннику.
Не каждый отказаться от легких денег. Чем скорее вы явитесь с повинной, тем больше вероятность, что паспорт попадет в базу утерянных, наличие в которой не даст преступникам взять по нему кредит или продать сбежавшему зеку.
Чтобы выяснить, не терял ли кто паспорт вашего нового знакомого, надо пробить серию и номер документа по списку недействительных российских паспортов.
Настоящее ли разрешение на работу
Не фальшивое ли разрешение на въезд
Правильно ли указана прописка/регистрация
Не нарисованы ли права
Ну вроде как то так.
Объяснение: