(While)برنامه ای بنویسید که اعداد کوچکتر از 100 را در خروجی چاپ نماید  با استفاده از دستور 

;program a1

;uses crt

VAR

;i:integer

begin

;clrscr

;i:=1

;while i<=100 do

begin

;(write(i:4

;i:=i+1

;write

;end

;writeln

;readln

.end

(Repeat,untio)برنامه بنویسید که وقتی عددی را وارد میکنیم اگر از 100 کوچکتر بود ان را چاپ نمایدبا استفاده از دستور

;program a2

;uses crt

var

;i:integer

begin

;clrscr

;i:=1

;repeat

;(readln(i

;(writeln(i

;until i>100

;writeln

.end

نظرات شما عزیزان:

نام :

آدرس ایمیل:

وب سایت/بلاگ :

متن پیام:

نظر خصوصی

 کد را وارد نمایید:

 

 

 

عکس شما

آپلود عکس دلخواه: