Регистрация
Poli4ka228
12.03.2020 08:51
Информатика
Есть ответ 👍

3. Дни недели пронумерованы следующим образом: 0 — воскресенье, 1 — понедельник, 2 — вторник, …, 6 — суббота. Дано целое число K, лежащее в диапазоне 1–365. Определить номер дня недели для K-го дня года, если известно, что в этом году 1 января было четвергом. для с как это решать мне ну столь нужен ответ как понимание как это делать

299
495
Посмотреть ответы 3

Ответы на вопрос:

ryure146
ryure146
4,6(90 оценок)

program ZZZ;

var z,s:integer;

begin  

writeln('введите число <= 365');

readln (z)  ;

s:= z mod 7;

if s = 0 then writeln ('это воскресенье');

if s = 1 then writeln ('это понедельник');

if s = 2 then writeln ('это вторник');

if s = 3 then writeln ('это среда');

if s = 4 then writeln ('это четверг');

if s = 5 then writeln ('это пятница');

if s = 6 then writeln ('это суббота');

end.

Объяснение:

mahomaev
mahomaev
4,4(59 оценок)

var K : Integer;

begin

Write('Введите номер для года: '); ReadLn(K);

Write((K + 3) mod 7, ' - ');

case (K + 3) mod 7 of

0: WriteLn('Воскресенье');

1: WriteLn('Понедельник');

2: WriteLn('Вторник');

3: WriteLn('Среда');

4: WriteLn('Четверг');

5: WriteLn('Пятница');

6: WriteLn('Суббота');

end;

end.

Объяснение:

LadyZed
LadyZed
4,7(80 оценок)

var

  x, y, z, res : real;

 

function min2 (a, b : real) : real;

begin

  if a < b then min2 : = a else min2 : = b;

end;

 

begin

  read (x, y, z);

  res : =  min2 (x + y + z / 2,  x* y * z)+1;

  writeln (res);

end.

Популярно: Информатика