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 đó. 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
Lưu ý: Nếu có thì phải ghi 2 số đó ra
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 ‘,i,’ ‘,i+1) else writeln(‘Khong’);
readln
end.
Bài này mình cũng có trả lời bên kia rồi nên không phải là copy của người khác nhé.