Phần mềm học tập

Phạm An Khánh

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 ạ

Nguyễn Lê Phước Thịnh
2 tháng 7 2020 lúc 22:02

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.

Bình luận (0)

Các câu hỏi tương tự
Phạm An Khánh
Xem chi tiết
Phạm An Khánh
Xem chi tiết
Minh Ngọc Nguyễn Đỗ
Xem chi tiết
Phạm An Khánh
Xem chi tiết
Anh Vinahouse
Xem chi tiết
Phạm An Khánh
Xem chi tiết
Phương Anh (NTMH)
Xem chi tiết
Nguyễn Thị Ngọc Minh
Xem chi tiết
Thúy Hiền Nguyễn
Xem chi tiết