Tin học Viết ct đơn giản có sử dụng câu lệnh For do và While do 11/08/2021 By Hailey Viết ct đơn giản có sử dụng câu lệnh For do và While do
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! Trả lời
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. 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.