pascal空心的字母金字塔Description 输入一个大写的英文字母,输出一个空心的字母金字塔.Input 只有一

pascal空心的字母金字塔
Description
输入一个大写的英文字母,输出一个空心的字母金字塔.
Input
只有一行且只有一个大写英文字母
Output
一个空心的大写英文字母金字塔.
其中第一行的字母“A”在第40列.
Sample Input
E
Sample Output
A
B B
C C
D D
EEEEEEEEE
Source
基础题

az3578099 1年前已收到1个回答举报

4h4t 幼苗

共回答了19个问题采纳率：78.9% 举报

var
ch,i:char;
kg,ck,j:integer;
begin
read(ch);ck:=40;kg:=-1;
for i:='A' to chr(ord(ch)-1) do
begin
write(i:ck);
dec(ck);
for j:=1 to kg do
write(' ');
inc(kg,2);
if i'A' then
write(i);
writeln;
end;
write(ch:ck);
for j:=2 to kg+2 do
write(ch);
end.
AC!

1年前追问

az3578099 举报

pascal高精度除法（一）呢？ Description 输入二个正整数m、n，输出m除以n的商k和余数r。 Input 第一行只有一个正整数：m ( 1 < m < 10^200 ) 第二行只有一个正整数：n ( 1 < n <10^10 ) Output 第一行只有一个正整数：k 第二行只有一个正整数：r Sample Input 123 5 Sample Output 24 3 Source 基础题如果AC了，给你高分

举报 4h4t

var a:array[1..3000] of longint; s:string; i,j,len:longint; t,r:int64; begin readln(s); readln(t); len:=length(s); for i:=1 to len do begin r:=r*10+ord(s[i])-48; a[i]:=r div t; r:=r mod t; end; i:=1; while (a[i]=0)and(i

az3578099 举报

高精度除法（二）呢？ Description 输入二个正整数m、n，输出m除以n的商k和余数r。 Input 第一行只有一个正整数：m ( 1 < m < 10^200 ) 第二行只有一个正整数：n ( 1 < n < 10^100 ) Output 第一行只有一个正整数：k 第二行只有一个正整数：r Sample Input 123 5 Sample Output 24 3 Source 稍难题如果AC给你200分

举报 4h4t

等一下代码太多了发不过来

az3578099 举报

哦，速度点，快快，分要没了！

举报 4h4t

http://hi.baidu.com/474499517/blog/item/2c905be85aeb3cddd539c93f.html 发这个吧这个蛮好。跟我思路差不多。里面还有代码

举报 4h4t

可能相似的问题

你能帮帮他们吗

精彩回答