1樓：盜版大全
var定義變數。
begin字面翻譯吧。。開始。
read(readln)
讀取，讀取並換行。
if字面翻譯。。如果。
至於你那個程式。。
簡單解釋下吧。
readln(a);讀入a
b:=a div 100; 把a除枯棚以100的整數部分賦值給b
c:=(a div 10) mod 10; mod是除後的餘數。。div參考上一條。
d:=a mod 10; 同上。
if b<>0 then e:=3
else if c<>0 then e:=2
else e:=1;
分下行就清楚一些了 if是條件判巨集禪斷 如果b<>沒絕則0（b不等於0） then 是那麼 else 是否則。
writeln(e); 輸出e
if (e=1) then writeln(d)
else if (e=2) then writeln (c,' d)
else writeln(b,' c,' d);
蛋疼的一行。。
仍舊是if條件判斷，具體含義自行翻譯。
其實pascal很簡單的，找一本入門級的書先看兩天，熟悉一下基礎語句就能解決好了。
如果還有其他什麼問題再找我。
2樓：匿名使用者
這樣改就行了：搜櫻。
vara,b,c,d,e:integer;
beginreadln(a);
b:=a div 100;
c:=(a div 10) mod 10;
d:=a mod 10;
if b<>0 then e:=3 else if c<>0 then e:=2 else e:=1;
writeln(e);
if (e=1) then writeln(d)else if (e=2) then writeln (c,' d)else writeln(b,' c,' d);
end.—洞畝知道團隊pas世界歡迎你加入！納漏森。
用pascal 乙個正整數的個位數字是6,如果把個位數字移到首位,所得到的數是原數的4倍,試程式設計
3樓：網友
1、設原數x位數為n，形為：x = ??6 = ??0 + 6
移位後得到：4x = 6???= 60000 + = 6*10^(n - 1) +
6*10^(n - 1) +x - 6) / 10兩邊同乘10，得到：40x = 6*10^n + x - 6簡化可得：39x = 6*10^n - 6，題目轉化為等式右邊能否被39整除的問題。
2、程式如下。
program project1;
pascal沒有冪函式，自己寫。
function power(x, i: word): int64;
beginresult := 1;
while i > 0 do
beginresult := result * x;
dec(i);
end;end;
varx, y: int64;
n: integer;
begin/ int64型別表示為10進位最多19位for n := 1 to 19 do
beginy := 6 * power(10, n) -6;
x := y div 39;
if x * 39 = y then
writeln(x);
end;readln;
end.
C語言如何程式設計實現給出不多於4位的正整數，輸出它是幾位數
include include int main void while num 0 num 10000 int i 1,weishu 0 for i 1 num i 0 i i 10 weishu printf 輸入的資料是 d位資料 n weishu int num1 num for i pow ...
和氏璧的主要內容（不多於15字）
據史料記載，卞和，湖北襄樊人也，是春秋時期楚國的琢玉能手，他在荊山里得到一塊璞玉。卞和捧著璞玉先後去見楚厲王和武王，但說這只不過是一塊石頭，於是以欺君之罪被砍下左腳和右腳。文王即位後，卞和抱著璞玉在楚山下痛哭了二天二夜，哭幹了眼淚後又繼續哭血。文王得知後派人詢問為何，卞和說 我並不是哭我被砍去了雙腳...
大瀑布的葬禮 簡短的讀後感不多於50字
如果現在不愛護環境，那滅絕的就是人類自己。大瀑布的葬禮讀後感 我們學了一篇課文 大瀑布的葬禮 大瀑布的葬禮讀後感。它使我深切感受到了人類對大自然破壞的惡劣程度。塞特凱達斯大瀑布曾經是世界上流量最大的瀑布，洶湧的河水緊貼懸崖咆灶清哮而下，滔滔不絕，一瀉千里。它曾經是巴西和巴拉圭兩國的驕傲，曾經是世界各...