سه سوال در مورد الگوریتم

سلام به همگی. من ترم یک کامپیوترم و چند تا سوال در مورد الگوریتم دارم.
1 .چطور باید الگوریتم به دست آوردن جذر یه عدد بدون استفاده از لیست رو بنویسیم؟
2. الگوریتمی که اول بودن یه عدد صحیح مثبت رو تشخیص بده و 3. الگوریتم محاسبه مجموع ارقام یه عدد صحیح مثبت.
ممنون میشم به اینا جواب بدید. البته به شکل برنامه نمی خوامش فقط به شکلی که بشه بردش تو فلوچارت...

جواب سوال دوم :

x,i,count:integer
begin
readln(x)
i:=2
count:=0
while i<x do
begin
if ( x mod i )=0 then
count:=1
i:=i+1
end
if count=0 then
writeln("adad Avval ast")
else
writeln("adad Avval nist")
end

ایونو دیگه خودت ببر تو فلوچات ، نمی دونستم چه جوری توضیح بدم که بفهمی

جواب سوال سوم :

x,count:integer
begin
readln(x)
count:=0
while 0<x do
begin
x:=x mod 10
count:=count +1
end
writeln("tedad argham barabar ast ba",count)
end

اینم خودت فلوچاتش کن بابا خیلی راحته

ممنون فقط یه سوال.. میتونیم از دو تا شرط پشت سر هم تو الگوریتم استفاده کنیم؟ مثلا تو فلوچارتش دو تا لوزی پشت سر هم...

آره بابا راحت باش اصلا 1000 تا لوزی پشت سر هم بکش

nstro67
عزيز خيلي باحالي ولي يكمي هم كتاب بخون و زود نيا اينجا