1樓:a孤獨求敗
var a:array[1..5]of integer;
i,j,x:integer;
beginreadln(a[1],a[2],a[3]);
for i:=1 to 2 do for j:=i+1 to 3 do if a[j]0 do m:=m+i;
writeln(m,' 1');
readln;
end. 樓上的兩個b!你們麻不麻煩!
既然是求最小公約數,直接輸出1不就行了?
總結:樓上的第一隻b是新手!
第二隻b對於我來說也是新手!
2樓:功安波
var a,b,c,n:integer;
beginreadln(a,b,c);
if a>b then begin
n:=a;a:=b;b:=n;
end;if b>c then beginn:=c;c:=b;b:=n;
end;if a>b then beginn:=a;a:=b;b:=n;
end;writeln(a,b,c);
readln;
end.樓上的b,六個if個鳥!
var i,n:integer;
s:string;
beginreadln(n);
str(n,s);
n:=0;for i:=1 to length(s) do n::=n+ord(s[i])-48;
writeln(n);
readln;
end.樓上的b,兩位數的誰都會!
var i,j,n:integer;
beginreadln(n);
for i:=2 to n do
if n mod i=0 then beginwriteln('no');
readln;
halt;end;
writeln('yes');
readln;
end.樓上的b,打都不列印!
var i,j,m:integer;
beginreadln(i,j);
m:=i;while m mod j<>0 do m:=m+i;
writeln(m,' i*j)div m);
readln;
end.樓上的b,你麻不麻煩!
總結:樓上的b是新手!
C語言小題目,3個C語言小題目
你們知道現在的ncre嗎 1 編制程式 對鍵盤輸入的字串進行逆序,逆序後的字串仍然保留在原來字元陣列中,最後輸出 include main for i n,j n 1 i 2 n i a i b j a i 0 給a賦結束標誌 printf the changed string is n puts ...
java程式設計題求解答,java程式設計小題目求解答
記事本程式和龜兔賽跑和萬年曆應該很簡單的 天,是課程設計嗎?很 啊!java程式設計小題目求解答 1 可獨立執行的程式和嵌入式應用程式,前者可獨立執行,後者需必須依附在其它程式裡執行 2 簡單,完全物件導向,可靠,安全,分散式,多執行緒,平臺無關 3 break語句直接跳出整個迴圈,continue...
誦中華經典做美德少年是大題目,寫小題目,在寫徵文
中國文化如滔滔江水,幾千年來奔湧不息。它博大,深邃,教育著我們如何為回 人。答誦中華文化,做文明學生,是歷屆學生不變的話題。關懷他人,是一種文明。這一美德被 三字經 奉為圭臬。每當我讀到 香九齡,能溫席,孝於親,所當執。和 融四歲,能讓梨,弟於長,宜先知 時,都會為先輩們敬長親友的風度深深折服。他們...