Одно из трех: 1) Задача проще чем кажется, поэтому не нужно ничего усложнять. Достаточно просто все записать в соответствии в таблицу и отсортировать по столбцу "Скорость" при фильтров. Что я и сделал (см. файл Excel лист "Предтеч просто") 2) В задаче НЕ достаточно условий, т.к. мне стало не ясно зачем тут 4-ре исследователя!? Я пытался их приплести к условию задачи (Лист: "Предтеч - сложно"), Но мне кажется получился бред. 3) Возможно я чего-то не понял из всего информационного хаоса царившего в данной задаче, но как решать её по другому я не знаю.
Uses crt; var k,n:integer; begin clrscr; writeln ('введи день года от 1 до 365'); readln (k); if (k>=1) and (k<=365) then begin n:=k mod 7; case n of 1: writeln ('понедельник'); 2: writeln ('вторник'); 3: writeln ('среда'); 4: writeln ('четверг); 5: writeln ('пятница'); 6: writeln ('суббота'); 0: writeln ('воскресенье'); end; end else writeln ('Неверный ввод'); readln; end.
uses crt; var k,n,d:integer; begin clrscr; writeln ('Введи с какого дня недели 1 января (1-пон, 2-вт и тд до 7)'); Readln (d); writeln ('введи день года от 1 до 365'); readln (k); if (k>=1) and (k<=365) and (d>=1) and (d<8) then begin n:=k mod 7 +d-1; case n of 1: writeln ('понедельник'); 2: writeln ('вторник'); 3: writeln ('среда'); 4: writeln ('четверг'); 5: writeln ('пятница'); 6: writeln ('суббота'); 0,7: writeln ('воскресенье'); end; end else writeln ('Неверный ввод'); readln; end.
1) Задача проще чем кажется, поэтому не нужно ничего усложнять. Достаточно просто все записать в соответствии в таблицу и отсортировать по столбцу "Скорость" при фильтров. Что я и сделал (см. файл Excel лист "Предтеч просто")
2) В задаче НЕ достаточно условий, т.к. мне стало не ясно зачем тут 4-ре исследователя!? Я пытался их приплести к условию задачи (Лист: "Предтеч - сложно"), Но мне кажется получился бред.
3) Возможно я чего-то не понял из всего информационного хаоса царившего в данной задаче, но как решать её по другому я не знаю.
var k,n:integer;
begin
clrscr;
writeln ('введи день года от 1 до 365');
readln (k);
if (k>=1) and (k<=365) then
begin
n:=k mod 7;
case n of
1: writeln ('понедельник');
2: writeln ('вторник');
3: writeln ('среда');
4: writeln ('четверг);
5: writeln ('пятница');
6: writeln ('суббота');
0: writeln ('воскресенье');
end;
end
else writeln ('Неверный ввод');
readln;
end.
uses crt;
var k,n,d:integer;
begin
clrscr;
writeln ('Введи с какого дня недели 1 января (1-пон, 2-вт и тд до 7)');
Readln (d);
writeln ('введи день года от 1 до 365');
readln (k);
if (k>=1) and (k<=365) and (d>=1) and (d<8) then
begin
n:=k mod 7 +d-1;
case n of
1: writeln ('понедельник');
2: writeln ('вторник');
3: writeln ('среда');
4: writeln ('четверг');
5: writeln ('пятница');
6: writeln ('суббота');
0,7: writeln ('воскресенье');
end;
end
else writeln ('Неверный ввод');
readln;
end.