Question

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 ạ

Answer 1

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.