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

Question

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

in progress 0
Hailey 1 tháng 2021-08-11T04:38:37+00:00 2 Answers 0 views 0

Answers ( )

    0
    2021-08-11T04:39:42+00:00

    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!

    0
    2021-08-11T04:39:50+00:00

    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.

Leave an answer

Browse

35:5x4+1-9:3 = ? ( )