برنامه ای را بنویسید که 20 تا از مضرب های 5 را چاپ کند

;program p2

;uses crt

var

;a,m:integer

begin

;clrscr

for a:=1 to 20 do

begin

;m:=a*5

;(write(m:10

;end

;readln

.end

برنامه ای بنویسید که  یک عدد 4 رقمی را دریافت  و رقمهای ان را با هم جمع و حاصل را چاپ نماید.

;program  a1

var

;j,i,f,e,d,c,b,a:integer

begin

;(readln(a

;b:=a div 1000

;c:=a div 100

;d:=c-(b*10)

;e:=a mod 100

;f:=e div 10

;i:=e mod 10

;j:=b+d+f+i

;(writeln(j

;readln

.end

برنامه ای بنویسید که وقتی عددی را وارد کردیم  بگوید عدد وارد شده اول است.

;program  s1

var

;a,p,i:integer

begin

;(readln(a

for i:= 1 to a do

begin

if (a mod i=0) then

;p:=p+1

;end

if (p=2) then

(writeln('add vared shode avl ast'

else

;(writeln('add vared shode avel  nmebashd'

;readln

.end

برنامه ای بنویسید که 3 عدد را جمع  کرده و میانگین انها را  چاپ کند

;program a3

;uses  crt

var

 ; a,b,c,s:integer

   ;avg:real

begin

;clrscr

;(writeln('enter three number'

;(readln(a,b,c

;s:=a+b+c

;avg:=s/3

;(writeln('avg=',avg

;readln

.end

برنامه ای بنویسید که 10 سری از اعداد فیوناچی را چاپ کند.

;program as1

;uses crt

var

;m,n,i,p:integer

begin

;clrscr

;m:=1

;n:=1

;(write(m,n:4

for i:=1 to 10 do

begin

;p:=m+n

;(write(p:4

;m:=n

;n:=p

;end

;readln

.end

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

نام :

آدرس ایمیل:

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

متن پیام:

نظر خصوصی

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

 

 

 

عکس شما

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