Lập trình đơn giản

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

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

Trương Quang Dũng
26 tháng 4 2018 lúc 19:50

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.

Giao Huỳnh
3 tháng 5 2018 lúc 17:04

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.


Các câu hỏi tương tự
đức minh
Xem chi tiết
nguyễn vũ thành công
Xem chi tiết
phamthiminhanh
Xem chi tiết
Kamato Heiji
Xem chi tiết
duy lê
Xem chi tiết
Tạ Quang Huy
Xem chi tiết
Lê Triệu Vy
Xem chi tiết
Hải Đăng
Xem chi tiết
lmao lmao lmao
Xem chi tiết