daneshvar.amrollahi
کاربر حرفهای
- ارسالها
- 327
- امتیاز
- 130
- نام مرکز سمپاد
- راهنمایی حلی۲/دبیرستان حلی۱۰/دبیرستان علامه طباطبایی
- شهر
- تهران
- سال فارغ التحصیلی
- 1397
- مدال المپیاد
- کامپیوتر
پاسخ : پرسش و پاسخ پیرامون برنامه نویسی
سلام. میخواهم با کمترین مقدار دستورات ممکن برنامه ای به زبان پاسکال بنویسم که عددی رو بگیره و چک کنه اول هست یا نه. این برنامه رو نوشتم و کار هم میکنه
var
;n,i,f: integer
Begin
;f := 0
;(readln(x
for i:= 2 to (n-1) do
begin
if (n mod i=0)then
;f := 1
;end
(if (f=0 then
writeln('avval') else
;('writeln('avval nist
;readln
End.
اما به جای اینکه از 1 تا n حلقه بندازیم، میخواهم رادیکال n را بگیریم تا به جای n قرار دهیم. اگر متوجه شده راهنمایی کنه ممنون میشم.
سلام. میخواهم با کمترین مقدار دستورات ممکن برنامه ای به زبان پاسکال بنویسم که عددی رو بگیره و چک کنه اول هست یا نه. این برنامه رو نوشتم و کار هم میکنه
var
;n,i,f: integer
Begin
;f := 0
;(readln(x
for i:= 2 to (n-1) do
begin
if (n mod i=0)then
;f := 1
;end
(if (f=0 then
writeln('avval') else
;('writeln('avval nist
;readln
End.
اما به جای اینکه از 1 تا n حلقه بندازیم، میخواهم رادیکال n را بگیریم تا به جای n قرار دهیم. اگر متوجه شده راهنمایی کنه ممنون میشم.
