Question

Bài 1: Cho 2 số nguyên m và n. Tính tổng các số chia hết cho 3 hoặc chia hết cho 5 trong phạm vi từ m đến n. Viết chương trình

Bài 2: Hãy tìm tất cả những số mà thỏa mãn số đó chia cho 3 dư 2 và tổng các chữ số của nó là 26 rồi hiển thị chúng ra
.Tin học 8 ạ. Cần gấp, mai ktra @Trương Quang Dũng, @duong nguyenvan, @Hà Ngân Hà, @Nguyễn Thị Bích Thiên, @@Giao Huỳnh, @Nguyễn Trần Thành Đạt, @Dương Thu Hiền
.P/s: nhanh ạ, e camon trc

Answer 1

program bai1;

var m,n,i:Longint;

begin

wriute('M= ');readln(m);

repeat

write('N= ');readln(n);

until n>=m;

s:=0;

for i:=m to n do

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

write('S= ',s);

readln

end.

Answer 2

Bài 1

Program bai1;

Uses crt;

Var m,n,i,s:longint;

Begin

Clrscr;

Write ('nhap m:'); readln (m);

Write ('nhap n:'); readln (n);

While n <m do

Begin

Write ('nhap lai n:');

Readln (n);

End;

S:=0;

For i:=m to n do

If (i mod 3=0) or (i mod 5=0) then s:=s+i;

Write (s);

Readln;

End.