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.
* while...do
Program HOC24;
var A: integer;
i: byte;
Begin
A:=0; i:=5;
while i<=200 do
begin
A:=A+i;
i:=i+5;
end;
write('A= ',A);
readln
end.
uses crt;
var i,t:integer;
begin
clrscr;
t:=0;
for i:=1 to 100 do t:=t+i;
writeln(t);
readln;
end.
uses crt;
var i,t:integer;
begin
clrscr;
t:=0;
for i:=1 to 100 do t:=t+i;
writeln(t);
readln;
end.
Sử dụng For.. do:
Var i,S:integer;
Begin
For i:= 1 to 100 do If i mod 2 = 0 then S:= S+i;
Writeln(' tong cac so chan :',S);
Readln;
end.
Sử dụng While ..do:
Var i,S:integer;
Begin
i:=0;
While i<=100 do If i mod 2 = 0 then S:= S+i;
Writeln(' tong cac so chan :',S);
Readln;
end.
1:
a)
uses crt;
var i,n,t:integer;
begin
clrscr;
write('n='); readln(n);
t:=0;
for i:=1 to n do
if i mod 2=0 then t:=t+i;
writeln('Tong cac so chan la: ',t);
readln;
end.
b)
uses crt;
var i,t,n:integer;
begin
clrscr;
write('n='); readln(n);
t:=0; i:=1;
while i<=n do
begin
if i mod 2=0 then t:=t+i;
i:=i+1;
end;
writeln('tong cac so chan la: ',t);
readln;
end.
2:
a)
uses crt;
var i,n,t:longint;
begin
clrscr;
write('nhap n='); readln(n);
t:=1;
for i:=1 to n do
if i mod 2=0 then t:=t*i;
writeln('Tich cac so chan la: ',t);
readln;
end.
b)
uses crt;
var i,n,t:longint;
begin
clrscr;
write('n='); readln(n);
t:=1; i:=1;
while i<=n do
begin
if i mod 2=0 then t:=t*i;
i:=i+1;
end;
writeln('Tich cac so chan la: ',t);
readln;
end.
Sử dụng vòng lặp while...do:
program TinhTong20SoTNN;
var
i, sum: integer;
begin
i := 1;
sum := 0;
while i <= 20 do
begin
sum := sum + i;
i := i + 1;
end;
writeln('Tong cua 20 so tu nhien dau tien la: ', sum);
end.
Sử dụng vòng lặp for...do:
program TinhTong20SoTNN;
var
i, sum: integer;
begin
sum := 0;
for i := 1 to 20 do
sum := sum + i;
writeln('Tong cua 20 so tu nhien dau tien la: ', sum);
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:integer;
begin
clrscr;
readln(n);
for i:=1 to n do if n mod i=0 then write(i:4);
readln;
end.
for ... do
program Tinh_S;
uses crt;
var i,n:byte;
S:longint;
begin
writeln('Nhap so n='); readln(n);
S:=0;
for i:=1 to n do
if i mod 2=1 then S:=S+i;
writeln('Tong cac so le nho hon hoac bang n la, S=',S)
readln
end.
*while..do
Program HOC24;
var T: longint;
i,X: integer;
begin
write('Nhap X: '); readln(X);
i:=2; t:=1;
while i<=X do
begin
t:=t*i;
i:=i+2;
end;
write('T= ',t);
readln
end.
*for..do
Program HOC24;
var T: longint;
i,X: integer;
begin
write('Nhap X: '); readln(X);
t:=1;
for i:=1 to X do if i mod 2=0 then t:=t*i;
write('T= ',t);
readln
end.