// PascalABC.NET 3.0, сборка 1128
begin
var D:=ReadInteger('Номер дня (1-31)');
var M:=ReadInteger('Номер месяца (1-12)');
var G:=ReadInteger('Номер года (1900-1999)');
var S:=(12-M) div 10;
var K:=Trunc(Int((G-1900-S)*365.25)+Int((M+12*S-2)*30.59)+D+29);
var N:=K mod 7;
case N of
0:Writeln('Воскресенье');
1:Writeln('Понедельник');
2:Writeln('Вторник');
3:Writeln('Среда');
4:Writeln('Четверг');
5:Writeln('Пятница');
6:Writeln('Суббота')
end
end.
4, 8, 13, 17.
Т. е. круглое число минус один или половина интервала между ними, округлённая вниз.
㏒₂<span>16777216=24
Ответ: 2²⁴</span>
Номер кратен 5 - это строки номер 5, 10, 15 и 20, т.е. от 5 с шагом 5.
// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var (m,n):=(20,10);
Writeln('*** Исходный массив ***');
var E:=MatrRandom(m,n,1,99);
E.Println(3); Writeln(3*E.ColCount*'-');
var p:=BigInteger(1);
ForEach var i in Range(4,m-1,5) do
p:=E.Row(i).Where(t->t>4).Aggregate(p,(x,y)->x*y);
Println('Произведение равно',p)
end.
473(8) = 4*8^2 + 7*8^1 + 3*8^0 = 4*64 + 7*8 + 3 = 256 + 56 + 3 = 315(10)