Question

sử dụng lệnh while..............do viết chương trình in ra màn hình nhỏ hơn 100                                               Mn giúp mik vs ạ !

Answer 1

Mình viết phần thân thôi nha

n khai báo là interger

n:=0;

While n<>100 do

 Begin

 Write(n,' ');

 inc(n);

 end;

Answer 2

PROGRAM LOSER;
USES crt;
VAR  
  i:Bytbe;
BEGIN
 clrssr ();
 i:=1;
 while i <100 do
 BEGIN
 write('',i);
 i:=i+1;
 End;
Readln;
END.

( uy tín chạy được em nha)