программисты помогите срочно задача на Delphi

Да тут дел-то на минуту. .

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

var y:integer;
begin
y:=0;
while (true) do
begin
inc(y);
if (y mod 2 = 1) and (y mod 3 = 1) and (y mod 4 = 1) and (y mod 5 = 1) and (y mod 6 = 1) and (y mod 7 = 0) then
begin
writeln(y);
break;
end;
end;
readln;
end.

В результате получается 301 яйцо.

Полностью исходник? Это помощь называется? Полный код под заказ разве что, заказать можно ТУТ

Фигасе у женщины руки - 7 яиц влазит.
program p;
begin
writeln('301');
end.
Если нужен полный исходник - пишите в почту, обсудим.

Составим математическую модель.

1. Когда женщина брала Вас за яйца парами, у Вас оставалось одно яйцо.
2. Когда она брала Вас за 3 яйца, у Вас оставалось 1 яйцо.
3. Когда она брала Вас за 4 яйца, у Вас оставалось 1 яйцо.
4. Когда она брала Вас за 5 яиц, у Вас оставалось 1 яйцо.
5. Когда она брала Вас за 6 яиц, у Вас оставалось 1 яйцо.
6. Когда она брала Вас за 7 яиц, у Вас не оставалось яиц, только член.

То есть нужно найти минимальное число Ваших яиц, которое:
1) нечётное
2) даёт 1 в остатке при делении на 3.
3) даёт 1 в остатке при делении на 4.
4) даёт 1 в остатке при делении на 5.
5) даёт 1 в остатке при делении на 6.
6) даёт 0 в остатке при делении на 7.

Теперь. Как бы нам это реализовать в Delphi, чтобы перебрать все Ваши яйца, тьфу ты, числа, до тех пор, пока не найдётся число, которое удовлетворяет всем этим требованиям?

Ну и код, соответственно, будет примерно такой.. .

program Yaitsa;

{$APPTYPE CONSOLE}

var n: integer = 7; // Ну, меньше семи яиц у таких, как Вы, не бывает, поэтому 7.

begin
while (n mod 3 <> 1) or (n mod 4 <> 1) or (n mod 5 <> 1) or (n mod 6 <> 1) or (n mod 7 <> 0) do begin
n := n + 2;
end;
WriteLn(n);
Read;
end.

Сохраните в формате *.dpr... Работает, я проверила.. . Может, не очень быстро, ну это уж Вы сами подкорректируете, идею- то я подкинула...