Viết ct đơn giản có sử dụng câu lệnh For do và While do

0 bình luận về “Viết ct đơn giản có sử dụng câu lệnh For do và While do”

1. 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

2. 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