怎样用Free Pascal程序表示一个数的前两个数

路过的大虾请帮帮忙！！！...

2026年09月25日 07:05

有6个网友回答

网友（1）：

var
a,b,c:Int64;
begin
readln(c);
b:=c-1;
a:=c-2;
writeln(a,b,c);
readln;
readln;
end.

网友（2）：

VAR
N:QWORD;
BEGIN
READLN(N);
WRITELN(N-1,' ',N-2);
END.

或

var
a,b,c:Int64;
begin
readln(c);
b:=c-1;
a:=c-2;
writeln(a,b,c);
readln;
readln;
end.

网友（3）：

var n,x:integer;
ns:string;
begin
readln(n);
str(n,ns);
x:=length(ns);
writeln(n div (ns-2));
end.

网友（4）：

VAR
N:QWORD;
BEGIN
READLN(N);
WRITELN(N-1,' ',N-2);
END.

网友（5）：

这么多人做这么一个“难题” 让人咋舌

网友（6）：

LS的太没RP了