PASCAL 的乙個超級簡單的加法問題

你太好了，readln，這並不是說你只能讀取乙個資料。 相反，它讀取指定數量的資料，例如 readln（a，b）; A和B中只能讀取和儲存兩個資料

例如 readln（a，b，c）; a、b 和 c 中只能讀取和儲存三個資料

您的錯誤應該是 var 後面變數的定義只能是 '：“'

此外，建議將 a 和 b 之和的值儲存到變數 c 中，並且 a、b 和 c 都設定為長整數;

沒錯**。 program abcs;

vara,b,c:longint;（a、b 後跟冒號，變數設定為長整數）。

beginreadln(a，b);

c:=a+b;

writeln(c);

end.

太簡單了，readln，只能讀取乙個資料。 遇到回程的終點。

沒錯**。 program abcs;

vara,b:integer;

readln(a);

readln(b);

writeln(a+b);

end.

var a,b:integer;

beginreadln(a,b);

writeln(a+b);

end.就是這樣。

沒有 C，就沒有程式

是的，答案是4。

你從 n=1,2,3,4,......繼續排列，數到n=7或8就能找到模式，就算是手動的，也非常快。

樓上很清楚，很容易弄清楚迴圈的規律。 （1,2,3,4,5，-1）是乙個迴圈。 16/6＝2...4，所以最終結果是4。

首先，這是初學者非常普遍的問題，如果用通用的解法來列舉，很容易寫出以下**：

如果乙隻公雞要花 5 塊錢，最多會有 19 只公雞; 如果乙隻母雞的價格為 3 美元，則最多有 33 只母雞; 因此，設 i 和 j 分別從 1 19 和 1 33 迴圈）。

var i,j,k:integer;

beginfor i:=1 to 19 do

for j:=1 to 33 do

begink:=100-i-j;k 是雛雞的數量;

if k mod 3<>0 then continue;

if 5*i+3*j+k div 3=100 then

writeln(i:5,j:5,k:5);

end;end.

但如果你仔細想想，你可以做得更好！

請注意，由於 x、y 和 z 都是整數，因此我還取上述 x 範圍的整數，它本身有分數。

**這樣寫出來：

var x:integer;

beginfor x:=26 to 28 do

writeln(4*x-100:5,200-7*x:5,3*x:5);

end.