Viết chương trình con nhập từ bàn phím dãy số x gồm i phần tử số nguyên( i<= 690)hãy tính tổng các số chia hết cho 3 hoặc chia hết cho 7 tính tổng bình phương các số còn lại
Viết chương trình con nhập từ bàn phím dãy số x gồm i phần tử số nguyên( i<= 690)hãy tính tổng các số chia hết cho 3 hoặc chia hết cho 7 tính tổng bìn
By Melanie
program bai_giai;
uses crt;
var X:array[1..690] of integer;
i,j,t,bp:integer;
begin
clrscr;
write(‘Nhap i: ‘); readln(i);
t:=0; bp:=0;
for j:=1 to i do
begin
write(‘X[‘,j,’]= ‘); readln(X[j]);
if (X[j] mod 3=0) or (X[j] mod 7=0) then t:=t+X[j]
else bp:=bp+X[j]*X[j];
end;
writeln(‘Tong cac so thoa man la: ‘,t);
write(‘Tong binh phuong cac so con lai la: ‘,bp);
readln;
end.
uses crt;
var x:array[1..690] of longint;
i,j,s,b:longint;
begin
clrscr;
write(‘i=’); readln(i);
write(‘Cac phan tu: ‘);
for j:=1 to i do
begin
read(x[j]);
if ((x[j] mod 3=0) or (x[j] mod 7=0)) then inc(s,x[j])
else b:=b+(sqr(x[j]));
end;
writeln(‘Tong: ‘,s);
writeln(‘BP: ‘,b);
readln;
end.