Viết chương trình Pascal thực hiện các phép tính sau :
tính tổng của các số chia hết cho 3 và 7 trong khoảng từ 1 đến n

Question

Viết chương trình Pascal thực hiện các phép tính sau : tính tổng của các số chia hết cho 3 và 7 trong khoảng từ 1 đến n

thanhbinh · Answer

program tong;

uses crt;

var n,i,T: integer;

Begin

clrscr;

write(‘Nhap n: ‘); readln(n);

for i:=1 to n do

if (i mod 3=0) and (i mod 7=0) then T:=T+i;

write(‘T = ‘,T);

readln

End.

lanhuong · Answer

uses crt;

var i,n,s: integer;

begin

clrscr;

write (‘nhap n: ‘); readln (n);

for i:=1 to n do

if (i mod 3=0) and (i mod 7=0) then s:=s+i;

writeln(‘tong la: ‘,s);

readln;

end.

Xin hay nhất !!!

0 bình luận về “Viết chương trình Pascal thực hiện các phép tính sau : tính tổng của các số chia hết cho 3 và 7 trong khoảng từ 1 đến n”