幾個pascal的小題目

2023-02-09 18:20:12 字數 1196 閱讀 6169

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...

誦中華經典做美德少年是大題目,寫小題目,在寫徵文

中國文化如滔滔江水,幾千年來奔湧不息。它博大,深邃,教育著我們如何為回 人。答誦中華文化,做文明學生,是歷屆學生不變的話題。關懷他人,是一種文明。這一美德被 三字經 奉為圭臬。每當我讀到 香九齡,能溫席,孝於親,所當執。和 融四歲,能讓梨,弟於長,宜先知 時,都會為先輩們敬長親友的風度深深折服。他們...