veldmort

کاربر سايت

برنامه ای بنویسید که تعدادی عدد از ورودی گرفته و اعدادی که مضرب سه هستند را با یکدیگر جمع کند
این عمل(خواندن عدد از ورودی و جمع کردن)تا زمانی انجام شود که کاربر * را وارد نکرده
یعنی با وارد کردن ستاره برنامه تمام شود

تذکر:این برنامه باید به صورت ساده نوشته شود بعنی با if,while,case



مرسی ازکمکتون

----------------------------------------------------------------------------------------------------------------------

از اهل بهشت کرد یا دوزخ زشت

Array

Guest

بفرما:

var a,sum:integer;
begin
readln(a);
if a=0 then halt;
while (a<>0) do
begin
if (a div 3=0) then sum:=sum+a;
readln(a);
end;
writeln('Sum=',sum);
realdln;
end.
ولي اين برنامه به جاي * از عدد صفر استفاده كردم.
يعني اگر عدد صفر رو بزني ديگه عدد نميگيره.

veldmort

کاربر سايت

مشکل همینه دوست عزیز
حتما باید ستاره باشه.چون باید از نوع char باشه
مرسی

----------------------------------------------------------------------------------------------------------------------

از اهل بهشت کرد یا دوزخ زشت

Array

Guest

من چون مدت زيادي برنامه نويسي نكردم و همينطور با زبانهاي زيادي كار كردم دقيقا يادم نيست فرمان تبديل استرينگ به اينتيجر چيه؟
شايد Val باشه.
فقط كافيه قبل از اينكه از متغير استرينگ استفاده كني اون تبديل به اينتيجر كني.

veldmort

کاربر سايت

مچکر
یه چیزایی فهمیدم ولی نه کامل

----------------------------------------------------------------------------------------------------------------------

از اهل بهشت کرد یا دوزخ زشت