Viết chương trình con nhập từ bàn phím dãy số r gồm g phân tử số nguyên (<=890). Hãy tính tổng các số chia hết cho 4 không chia hết cho k, tính tổng căn bậc hai các số còn lại. K nhập từ bàn phím
Viết chương trình con nhập từ bàn phím dãy số r gồm g phân tử số nguyên (<=890). Hãy tính tổng các số chia hết cho 4 không chia hết cho k, tính tổng căn bậc hai các số còn lại. K nhập từ bàn phím
uses crt;
var r:array[1..1000000] of longint;g,i,s,k:longint;sc:extended;
begin
clrscr;
write(‘Nhap so luong phan tu: ‘); readln(g);
write(‘Nhap k: ‘); readln(k);
for i:=1 to g do
begin
write(‘Phan tu thu ‘,i,’: ‘); read(r[i]);
if (r[i] mod 4=0) and (r[i] mod k<>0) then inc(s,r[i])
else sc:=sc+sqrt(r[i]);
end;
writeln(‘Tong so chia het 4 va khong chia het cho ‘,k,’: ‘,s);
writeln(‘Tong cac bac hai: ‘,sc:0:2);
readln
end.