Не переклеено ли фото на паспорте
При утере паспорта лучше как можно скорее бежать и писать заявление о пропаже. Ведь у нашедшего документ есть три варианта: оставить на память, отнести в милицию или продать дельцам, которые заменят в нем фото и продадут какому-нибудь мошеннику.
Не каждый отказаться от легких денег. Чем скорее вы явитесь с повинной, тем больше вероятность, что паспорт попадет в базу утерянных, наличие в которой не даст преступникам взять по нему кредит или продать сбежавшему зеку.
Чтобы выяснить, не терял ли кто паспорт вашего нового знакомого, надо пробить серию и номер документа по списку недействительных российских паспортов.
Настоящее ли разрешение на работу
Не фальшивое ли разрешение на въезд
Правильно ли указана прописка/регистрация
Не нарисованы ли права
Ну вроде как то так.
Объяснение:
Приложил картинкой, если запутаешься. Если что-то не так работает, я поправлю.
//Pascal
var
a, b, c, d, x1, x2: real;
begin
write('Введите a = '); readln(a);
write('Введите b = '); readln(b);
write('Введите c = '); readln(c);
if ((a = 0) and (b = 0) and (c = 0)) then
writeln('X любое')
else
if a <> 0 then
begin
d := sqr(b) - 4 * a * c;
if (d > 0) then
begin
x1 := (-b+sqrt(d))/(2*a);
x2 := (-b-sqrt(d))/(2*a);
writeln('x1 = ', x1);
writeln('x2 = ', x2);
end
else
if d = 0 then
begin
x1:=-b/(2*a);
x2:=x1;
writeln('x1 = ', x1);
//writeln('x2 = ', x2);
end
else
if d < 0 then
writeln('Корней нет.');
end
else
if (a = 0) and (b = 0) then
writeln('Решений нет.')
else
if (a = 0) then
begin
x1 := (-c)/b;
writeln('x = ', x1);
end;
end.