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 hoặc 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 hoặc 7 trong khoảng từ 1 đến n

minhguyrttuanh · 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) or (i mod 7=0) then T:=T+i;

write(‘Tong cac so chia het cho 3 hoac chia het cho 7 = ‘,T);

readln

End.

thanhha · Answer

program tong_chiahet_3_7;

uses crt;

var n,i,t:integer;

begin

clrscr;

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

t:=0;

for i:=1 to n do

if (i mod 3=0) or (i mod 7=0) then t:=t+i;

write(‘Tong la: ‘,t);

readln;

end.