Nhập vào từ bàn phím số nguyên dương N (0 { "@context": "https://schema.org", "@type": "QAPage", "mainEntity": { "@type": "Question", "name": " Nhập vào từ bàn phím số nguyên dương N (0
0 bình luận về “Nhập vào từ bàn phím số nguyên dương N (0<N<10000). Xuất ra màn hình các kết quả sau: Dòng 1: Các chữ số của N (mỗi chữ số cách nhau 1 dấu cách). ”
n,n1:temp:integer;begin repeat write; readln(n);if ( n < 32000 ) and ( n > -32000) then break until (1=1);n1:=0;temp:=n;beginn1:= n1 * 10 + temp mod 10;
n,n1:temp:integer;begin repeat write; readln(n);if ( n < 32000 ) and ( n > -32000) then break until (1=1);n1:=0;temp:=n;beginn1:= n1 * 10 + temp mod 10;
temp:= temp div 10 ;end;
var
n,n1:temp:integer;
begin
repeat
write(‘ nhap n : ‘); readln(n);
if ( n < 32000 ) and ( n > -32000) then break { break là lệnh dừng ngay vòng lập }
until (1=1);
n1:=0;
temp:=n;
while temp > 0 do
begin
n1:= n1 * 10 + temp mod 10;
temp:= temp div 10 ;
end;
if n1=n then write(‘ doi xung ‘) else write(‘ ko doi xung ‘);
readln;
end.