// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
var
m,n:integer;
begin
Write('Введите М и N: '); Read(m,n);
if m<>n then begin m:=0; n:=1 end
else begin m:=2*m; n:=2*n end;
Writeln('m=',m,', n=',n)
end.
<u><em>Тестовые решения:</em></u>
Введите М и N: 5 7
m=0, n=1
Введите М и N: 4 4
m=8, n=8
===== 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.
4 бита-2^4 варианта => 16 цветов
Const e = 1e-5; // точность
var x, y, r, d :real;
begin
readln(x);
readln(y);
readln(r); r := r*r;
d := sqrt(sqr(x) + sqr(y));
if abs(d - r) < e then
writeln ('лежит на окружности')
else if d < r then
writeln ('попадает в круг')
else
writeln('вне круга');
<span>end.</span>