Viết chương trình sử dụng lệnh lặp phù hợp sao cho thỏa điều kiện 10

Viết chương trình sử dụng lệnh lặp phù hợp sao cho thỏa điều kiện 10 { "@context": "https://schema.org", "@type": "QAPage", "mainEntity": { "@type": "Question", "name": " Viết chương trình sử dụng lệnh lặp phù hợp sao cho thỏa điều kiện 10

0 bình luận về “Viết chương trình sử dụng lệnh lặp phù hợp sao cho thỏa điều kiện 10<x<20”

  1. Chương trình sử dụng lệnh lặp phù hợp sao cho thỏa điều kiện `10<x<20` là :

    program nhapso;

    uses crt;

    var x:integer;

    begin

           clrscr;

           repeat

                  write(‘Nhap x: ‘);  readln(x);

           until (x>10) and (x<20);

           readln;

    end.

    Bình luận
  2. Dùng repeat until

    program nhapso;

    uses crt;

    var x:integer;

    begin

           clrscr;

           repeat

                  write(‘Nhap x: ‘);  readln(x);

           until (x>10) and (x<20);

           readln;

    end.

    Dùng while…do

    program nhapso;

    uses crt;

    var x:integer;

    begin

           clrscr;

           x:=0; 

           while (x<=10) or (x>=20) do

                  begin

                         write(‘Nhap so: ‘);   readln(x);

                  end;

           readln;

    end.

    Bình luận

Viết một bình luận