Viết ct đơn giản có sử dụng câu lệnh For do và While do
2 câu trả lời
For do:
program fordo;
uses crt;
var i:integer;
begin clrscr;
for i:=1 to 5 do
write('For do');
readln;
end.
While do:
program whiledo;
uses crt;
var i,T:integer;
begin clrscr;
i:=0; T:=0;
while i<5 do
begin
i:=i+1;
T:=T+i;
end.
write('T= ',T);
readln;
end.
Học tốt!
For do
program ct;
uses crt;
var s,i,n:integer;
begin
clrscr;
readln(n);
s:=0
for i:=1 to n do
s:=s+i;
writeln('tong cua so tu nhien la:',s);
readln
end.
While do
program ct;
uses crt;
var i,n:integer;
begin
clrscr;
readln(n);
if n<=1 then writeln('n khong phai so nguyen to') else
begin
i:=2;
while n mod i<>0 thrn i:=i+1;
if i=n then writeln(n,' la so nguyen to') else
writeln(n,'khong la so nguyen to');
end;
readln
end.
Câu hỏi trong lớp
Xem thêm