[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;

[Row]

мне твой код нравится больше, но я немного не догоняю, как он работает о_О
печально быть новичком))

[eXplorer]

да я сам всё усложняю чо-то постоянно так...
а твой код рабочий и проще чем мой

[Row]

я просто в универе на первом курсе учусь, циклы еще не прошли и пока без них решать нужно
кстати ты в Delphi 7 код пишешь?
просто мы на 6 работаем, они сильно отличаются?

[eXplorer]

Сообщение от Row

я просто в универе на первом курсе учусь, циклы еще не прошли и пока без них решать нужно
кстати ты в Delphi 7 код пишешь?
просто мы на 6 работаем, они сильно отличаются?

на 7.. отличаются или нет сам незнаю
уже отходим от темы.. ты пиши в личку... или лучше в контакт http://vkontakte.ru/explorerr или в асю UIN-624947740