Question

Viết chương trình nhập vào bàn phím một dãy số nguyên gồm n phần tử a.Tính tổng các phương trình có giá trị lẻ b.In ra các số chính phương trong dãy c.In ra các số nguyên tố trong dãy d.Sắp xếp dãy theo thứ tự tăng dần e.Kiểm tra dãy số trên có lập trình cấp số cộng hay không?

Answer 1

uses crt;

var a:array[1..100]of integer;

i,n,t,kt,j:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

t:=0;

for i:=1 to n do 

if a[i] mod 2<>0 then t:=t+a[i];

writeln(t);

for i:=1 to n do 

  if trunc(sqrt(a[i]))=sqrt(a[i]) then write(a[i]:4);

writeln;

for i:=1 to n do 

  if a[i]>1 then 

begin

kt:=0;

for j:=2 to trunc(sqrt(a[i])) do 

  if a[i] mod j=0 then kt:=1;

if kt=0 then write(a[i]:4);

end;

readln;

end.