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

thucquyen · Answer

uses crt;

var i,n,a,s: integer;

begin

clrscr;

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

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

for i:=1 to n do

if n mod a=0 then s:=s+i;

writeln (‘tong la: ‘,s);

readln;

end.

khanhngan · Answer

program tong_chiahet_a_b;

uses crt;

var t,i,a,b,n:integer;

begin

clrscr;

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

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

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

t:=0;

for i:=1 to n do

if (i mod a=0) or (i mod b=0) then t:=t+i;

write(‘Tong cac so chia het cho ‘,a,’ hoac ‘,b,’ tu 1 den ‘,n,’ la: ‘,t);

readln;

end.

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