Составьте программу для решения задачи (определение дня недели)

Question

Составьте программу для решения задачи (определение дня недели)

---

Comments

К номеру 21

Answer 1

Ответ:

var

 n:integer;

begin

 readln(n);

 n:=n mod 7;

 if n=1 then

  writeln('Понедельник');

 if n=2 then

  writeln('Вторник');

 if n=3 then

  writeln('Среда');

 if n=4 then

  writeln('Четверг');

 if n=5 then

  writeln('Пятница');

 if n=6 then

  writeln('Суббота');

 if n=7 then

  writeln('Восресенье');

end.

Подробнее - на Znanija.com - znanija.com/task/5068132#readmore

Объяснение: