רוטר - עזרה פשוטה בפסקל עם לולאה

יומן פעילות	לוח שנה	מבזקי חדשות	תקנון	RSS	כותרות	כותרות לפי תגובה	ניקוי קוקיז	IP	להורדת אפליקציה
eBay	AliExpress	GearBest	Amazon	Booking	Kiwi	SkyScanner	Trip Advisor

"עזרה פשוטה בפסקל עם לולאה"

גירסת הדפסה

קבוצות דיון פיתוח, תיכנות ובניית אתרים נושא #11330	מנהל סגן המנהל מפקח Winner צל"ש מומחה

אשכול מספר 11330

PhoeNiX
חבר מתאריך 1.8.02
10919 הודעות

19:29 08.11.04

עזרה פשוטה בפסקל עם לולאה

ערכתי לאחרונה בתאריך 08.11.04 בשעה 19:30 בברכה, PhoeNiX

שלום לכולם,
המשימה שלי היא כזו:
כתוב תוכנית המציגה כפלט את המספר השלמים ב-1 ל-30 המקיימים את התכונה שהשורש שלהם הוא מספר שלם.
התחלתי לעשות וכתבתי כך:
Program shoresh;
var
i:integeger;
num:real;
begin
for i:=1 to 30 do
מה עכשיו אני צריך לעשות?
חשבתי לקלוט את התוצאה של sqrt(i) בתוך משתנה אחר ואז לשאול אם המספר מוד 1 שווה ל-0 אז תדפיס את i. אם הדרך לא נכונה אשמח לקבל פתרון

תודה

שתף

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

האשכול	מחבר	תאריך כתיבה	מספר
פתרתי הינה תשובה למעוניינים	PhoeNiX	08.11.04 20:05	1

PhoeNiX
חבר מתאריך 1.8.02
10919 הודעות

20:05 08.11.04

1. פתרתי הינה תשובה למעוניינים
בתגובה להודעה מספר 0

program shoresh;
var
i:integer;
begin
for i:=1 to 30 do
begin
if (round(sqrt(i)) = sqrt(i)) then
writeln(i,' return a complete number from square root');
end;
end.

(ניהול: מחק תגובה)

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד