[Row]

Пусть m-целое от 1 до 365. Присвоить целой переменной n значение 1, 2, …, 7 в зависимости от того, на какой день недели (понедельник, …, воскресенье) приходится m-ый день не високосного года, в котором день недели 1 января вводится с клавиатуры (например, понедельник –1, вторник –2 и т.д.).

[eXplorer]

попробуй так

Код:

var
i:integer;
i2:integer;
begin
i2:=strtoint(edit1.Text);
for i:=1 to strtoint(edit2.Text)-1 do begin
i2:=i2+1;
if i2=8 then i2:=1;
end;
ShowMessage(inttostr(i2));
end;

где:
//edit1.text - день недели в виде от 1 до 7 (на число первого января)
//edit2.text - нужный день в году

[Konrad]

Зачем цикл?

А mod теперь запрещено использовать?

[Row]

eXplorer, спасибо большое))

[Row]

я решил ее вот так:

Код:

var m,n,i,z:integer;

begin
    writeln('vvedite nyjniy den v godu');
    readln(m);
    if (m>1) and (m<365) then
          begin
          writeln('vvedite den nedeli 1 yanvarya');
          readln(i);
          z:=i-1;
          n:=(m+z) mod 7;
          if (n=0) then n:=7;
          writeln(n);
          end
    else writeln('ne ydovletv');
    readln;
end.

это есть правильно?

[Row]

просто в циклах я еще не очень...)

[eXplorer]

а я так... без цикла если

Код:

var
   i:integer;
   i2:integer;
begin
   i:=strtoint(edit1.text);
   i2:=i+((strtoint(edit2.text) mod 7)-1);
   if i2>7 then 
       i2:=abs(i-(strtoint(edit2.text) mod 7)-1);
   ShowMessage(inttostr(i2));
end;