Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
program DemSoChiaHetCho5;
var
n, count, i: integer;
begin
write('Nhap vao so n: ');
readln(n);
count := 0;
i := 1;
while i <= n do
begin
if i mod 5 = 0 then // kiem tra so i co chia het cho 5 khong
count := count + 1;
i := i + 1;
end;
writeln('So luong so tu nhien chia het cho 5 tu 1 den ', n, ' la: ', count);
end.
program DemSoChiaHetCho5;
var
n, i, count: integer;
begin
write('Nhap n: ');
readln(n);
i := 1;
count := 0;
while i <= n do
begin
if i mod 5 = 0 then
count := count + 1;
i := i + 1;
end;
writeln('Co ', count, ' so tu nhien chia het cho 5 trong khoang tu 1 den ', n);
end.
* Sử dụng For ... do
Var i,s:integer;
Begin
For i:=1 to 10 do
s:=s+i;
Write('Tong la ',s);
Readln;
End.
* Sử dụng While ... do
Var i,s:integer;
Begin
i:=1;
While i<=10 do
Begin
s:=s+i;
i:=i+1;
End;
Write('tong la ',s);
Readln;
End.
uses crt;
var i,n,s:integer;
begin
clrscr;
readln(n);
s:=0;
i:=0;
while i<=n do
begin
i:=i+1;
s:=s+i*i;
end;
writeln(s);
readln;
end.
uses crt;
var n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
i:=0;
t:=0;
while i<=n do
begin
t:=t+i;
i:=i+2;
end;
writeln(t);
readln;
end.
lại có 2 lần end