Регистрация
AnnaMarkeca91
02.04.2021 20:10
Информатика
Есть ответ 👍

Напишите программу в паскале. дано: дан порядковый номер дня года (отсчет идет с 1-го января). требуется вывести номер дня недели этого дня, если 1 января — понедельник. (запрещено использовать команду if) при решении этой нельзя использовать любой из видов условной инструкции if.

299
460
Посмотреть ответы 2

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

lerka157
lerka157
4,4(57 оценок)
Var n,k: integer; begin readln(n); k: =(n-1) mod 7 + 1; writeln(k); end. пример: 29 1
kataefimova
kataefimova
4,6(45 оценок)

Varian 1 PascalABC.Net

begin  var s := ReadInteger;  SeqGen(11, i -> i * s).Println; end.

Varian 2

var  x, i, n: byte; begin  repeat    Writeln('Введите число ');    Readln(x);  until x in [2..9];  for i := 1 to 10 do    Writeln(x,'*',i,'=',x*i); end.

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