Mọi người giúp em câu pascal này với ạ:
Câu 1. Nhập vào từ bàn phím số tự nhiên N.
Xuất ra màn hình các kết quả sau:
+ Dòng 1: Số 1 nếu N là số chẵn, số 0 nếu N là số lẻ.
+ Dòng 2: Các chữ số của N
+ Dòng 3: Tổng các chữ số của N
Ví dụ:
INPUT N = 20 N = 123
OUTPUT 1 0
2 0 1 2 3
2 6
Nếu có thể làm mà không dùng đến mảng càng tốt ạ
Em xin cảm ơn...
Đọc tiếp
Mọi người giúp em câu pascal này với ạ:
Câu 1. Nhập vào từ bàn phím số tự nhiên N.
Xuất ra màn hình các kết quả sau:
+ Dòng 1: Số 1 nếu N là số chẵn, số 0 nếu N là số lẻ.
+ Dòng 2: Các chữ số của N
+ Dòng 3: Tổng các chữ số của N
Ví dụ:
INPUT N = 20 N = 123
OUTPUT 1 0
2 0 1 2 3
2 6
Nếu có thể làm mà không dùng đến mảng càng tốt ạ
Em xin cảm ơn ạ
uses crt;
var n,d,i,t,x,y:integer;
st:string;
begin
clrscr;
write('Nhap n='); readln(n);
if n mod 2=0 then writeln('1')
else writeln('0');
str(n,st);
d:=length(st);
writeln('Cac chu so cua ',n,' la: ');
for i:=1 to d do
write(st[i]:4);
writeln;
t:=0;
for i:=1 to d do
begin
val(st[i],x,y);
t:=t+x;
end;
writeln('Tong cac chu so cua ',n,' la: ',t);
readln;
end.
ok bạn