tính tổng các số chia hết cho a hoặc b trong khoảng từ 1 đến n bằng pascal 20/07/2021 Bởi Maria tính tổng các số chia hết cho a hoặc b trong khoảng từ 1 đến n bằng pascal
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. Bình luận
Program TinhTong; Uses crt; Var S,i,n:Integer; = Khai bao bien su dung BEGIN Write( ‘ Nhap so n:’ ); =Thong bao nhap lieu Readln( n ); =Nhap gtri N, (voi &N la lay d/c bien N) S: = 0; = Khoi gan gia tri ban dau cho S For i:=1 to n do = Lap voi moi i co gia tri tu 1 den N S:=S + i; =Tinh tong cong don i vao S Writeln( ‘Tong = ’, S); = Xuat ket qua tong S ra man hinh Readln; END. Bình luận
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.
Program TinhTong;
Uses crt;
Var S,i,n:Integer; = Khai bao bien su dung
BEGIN
Write( ‘ Nhap so n:’ ); =Thong bao nhap lieu
Readln( n ); =Nhap gtri N, (voi &N la lay d/c bien N)
S: = 0; = Khoi gan gia tri ban dau cho S
For i:=1 to n do = Lap voi moi i co gia tri tu 1 den N
S:=S + i; =Tinh tong cong don i vao S
Writeln( ‘Tong = ’, S); = Xuat ket qua tong S ra man hinh
Readln;
END.