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). Dòng 2: Tổng các chữ số của N. Dòng 3: Chữ số lớn nhất của N. Dòng 4: Số 0 nếu N là số nguyên tố, -1 nếu N không là số nguyên tố.
2 câu trả lời
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.
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;
