Mọi người giúp mik với
Đề bài: Nhập số tự nhiên n hay cho biết đó có phải là tổng của 2 số liên tiếp không
Input: số tự nhiên n
output: Nếu có ghi 2 số tự nhiên liên tiếp có tích là n. Nếu không thì ghi ‘khong’.
VD: 6 có tích 2 chữ số liên tiếp là 2 và 3 : 2*3=6
9900 có tích 2 chữ số liên tiếp là 99 và 100: 99*100=9900
uses crt;
var n,i:longint;
begin
clrscr;
write(‘Nhap 1 so:’);readln(n);
while (i*(i+1)<>n)and(i<n-1) do inc(i);
if i+1<>n then writeln(‘Co’) else writeln(‘Khong’);
readln
end.
program oken;
uses crt;
var n,i: qword;
kt:boolean;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
for i:=1 to n do
if (i)*(i-1)=n then
begin
kt:=true;
break;
end
else
kt:=false;
if kt=true then
writeln(‘Co’)
else
writeln(‘Khong’);
readln;
end.