Viết chương trình pascal nhập số n từ bàn phím xuất ra màn hình
+Dòng 1 :các chữ số của n
+Dòng 2 :tổng các chữ số của n
+Dòng 3 :kiểm tra tổng các chữ số của n có phải là số nguyên tố không
+Dòng 4 :các số chính phương từ 1 đến tổng các chữ số của n
các bạn giúp mình nha mình cần gấp.Ai làm mình cũng vote 5 sao hết.
uses crt;
var N, cs, T, i: integer;
Begin
clrscr;
write(‘Nhap so N: ‘); readln(N);
(*Xu li va in ra hai dong 1 va 2*)
write(‘Cac chu so cua N la:’);
T:=0;
while N<>0 do
begin
cs:=N mod 10;
write(cs:2);
T:=T+cs;
N:=N div 10;
end;
writeln;
writeln(‘Tong cac chu so cua N la:’, T:2);
(*Xu li va in ra dong 3*)
i:=2;
while (i<T) and (T mod i <> 0) do i:=i+1;
if i=T then writeln(‘Tong cac chu so cua N la so nguyen to’)
else writeln(‘Tong cac chu so cua N khong phai la so nguyen to’);
(*Xu li va in ra dong 4*)
write(‘Cac so chinh phuong tu 1 den tong cac chu so cua N la:’);
i:=1;
while (i*i<=T) do
begin
write(i*i:2);
i:=i+1;
end;
readln;
End.