Viết chương trình nhập số nguyên dương N (N<200) Đếm và đưa ra màn hình những số chia hết cho 5 trong phạm vi từ 1 đến N
2 câu trả lời
Program NN;
Uses crt;
Var n,i,d: longint;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
d:=0;
For i:=1 to n do
If i mod 5 = 0 then inc(d);
Write(d);
Readln
End.
uses crt;
var i, n, d : integer;
begin
clrscr;
d := 0;
write('nhap so n : ');readln(n);
if n < 200 then
for i := 1 to n do
if i mod 5 = 0 then d := d + 1;
writeln('co ', d ,' so chia het cho 5');
readln
end.
Câu hỏi trong lớp
Xem thêm
