Viết chương trình nhập n số từ bàn phím. Thực hiện Dòng 1: xuất ra các số vừa nhập theo thứ tự vừa nhập Dòng 2: xuất các số vừa nhập theo thứ tự ngược

0 bình luận về “Viết chương trình nhập n số từ bàn phím. Thực hiện Dòng 1: xuất ra các số vừa nhập theo thứ tự vừa nhập Dòng 2: xuất các số vừa nhập theo thứ tự ngược”

1. var n,so:integer;

          a:array[1..32000]of integer;

          S1,S2,S3,i:longint;

           b:boolean;

   begin

    write(‘n=’);readln(n);

    writeln(‘nhap lan luot n chu so’);S1:=0;S2:=0;

   for i:=1 to n do begin

    readln(a[i]);

    if  i mod 2=0 then s1:=s1+a[i] else S2:=S2+a[i];

    S3:=S3+a[i];

   end;

   for i:=1 to n do 

    write(a[i],’ ‘);

   writeln;

   for i:=n downto 1 do

    write(a[i],’ ‘);

   writeln;

   for i:=1 to n div 2 do

    write(a[i*2],’ ‘);

   i:=2;b:=true;

   while b and(i<sqrt(s1)) do begin

    b:=not(s1 mod i=0);

    i:=i+1;

   end;

   writeln(s1,’ ‘,b);

   for i:=1 to n div 2 +(n mod 2)do

    write(a[i*2-1],’ ‘);so:=0;

   for i:=1 to trunc(sqrt(s2)) do

    if s2 mod i=0 then so:=so+i;

   b:=s2=so;

   writeln(s2,’ ‘,b);

   so:=trunc(sqrt(s3));

   b:=so*so=s3;

   write(s3,’ ‘,b);

   readln;

   end.

   có gì sai mong bn thông cảm

    

   Bình luận