===== PascalABC.NET =====
procedure pK(n: integer; var k: int64);
begin
k := 1;
for var i := 2 to n do
k *= i
end;
function fK(n: integer): int64;
begin
Result := 1;
for var i := 2 to n do
Result *= i
end;
begin
var n := ReadInteger('n =');
var r: int64;
pK(n, r);
Println('Процедура:', r);
Println('Функция:', fK(n))
end.
Если я правильно понял, то:
program x;
var x,y,a;
begin
readln(x,y);
if x < y then
begin
a:=x;
x:=y;
y:=a;
end;
writeln(x,y);
end.
1) ответ 0
div - целочисленное деление, выдает целую часть после деления
126 div 10 = 12
mod - выдает остаток от деления
12 на 4 делится без остатка поэтому
12 mod 4 = 0
2) ответ 2, 3 и 4 пункты
div - целочисленное деление, выдает целую часть после деления
так что 15 делить на 15 будет 1
в остальных пунктах при делении будет число меньше 1 и оно обрежется до 0
Интернет -это инфррмационная система электронных документов
С++
все функции не защищенные, никаких проверок нету
"на коленке" протестировал, и на первый взгляд все работает как нужно<span />