Отв: 135000 мегабайт
так как в 1 часе 3600 сек.
а в 1 сек. 25 кадров
-> два мальчика
<- один мальчик
-> один взрослый
<- возвращается один мальчик, который остался после первых двух действий
-> два мальчика
<- один мальчик
-> взрослый
<- мальчик, который после 5 и 6 действия
-> два мальчик
Var N, lastNum, mod5: integer;
flag: boolean;
begin
readln(N);
lastNum := N mod 10;
mod5 := N mod 5;
flag := (lastNum = 5) or (lastNum = 0);
if flag then
writeln('Число ', N, ' делится на 5 по признаку делимости')
else
writeln('Число ', N, ' не делится на 5 по признаку делимости');
if (mod5 = 0) then
writeln('Число ', N, ' делится на 5 по определению')
else
writeln('Число ', N, ' не делится на 5 по определению');
flag := flag xor (mod5 = 0);
if flag then
writeln('Результаты не совпадают, это не признак делимости!')
else
writeln('Результаты совпадают, это возможно признак делимости')
end.
<h3>PascalABC.NET 3.4.2, сборка 1863 от 10.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
uses NumLibABC;
begin
var A := new Matrix(3, 3, -4, 1, 2, 5, 0, 7, 6, 2, 4);
var B := new Matrix(3, 4, 5, -1, 3, 4, 2, 0, 1, 6, 4, -3, 2, 3);
var C := A * B;
C.Println(5, 0)
end.