free pascal问题问题共有三题,我是新手,1.输入一个自然数n(n

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/09 15:40:14
free pascal问题问题共有三题,我是新手,1.输入一个自然数n(n

free pascal问题问题共有三题,我是新手,1.输入一个自然数n(n
free pascal问题
问题共有三题,我是新手,
1.输入一个自然数n(n

free pascal问题问题共有三题,我是新手,1.输入一个自然数n(n
1、
var k,i,j,n:longint;
begin
readln(n);
for i:=1 to n do
begin
for j:=1 to n-i do write(' ');
write(i);
for j:= 1 to ((i-1)*2-1) do write(' ');
if i=1 then writeln
else writeln(i);
end;
end.
2(1)、
var a,b,c,t:longint;
begin
a:=1;
b:=1;
t:=2;
while (c100;
writeln(t);
end.
3、
var sum,n,tmp:real;
begin
readln(n);
tmp:=n;
while (tmp>=n*0.001) do begi
sum:=sum+tmp;
tmp:=tmp*0.7;
sum:=sum+tmp;
end;
sum:=sum-tmp;
writeln(sum:0:2);
end.
望楼主采纳

free pascal问题问题共有三题,我是新手,1.输入一个自然数n(n pascal语言编程问题(free pascal求1—N中的素数的个数.(1 编程设计 鸡兔同笼问题 free pascal 初学入门鸡兔共有30个头,90支脚,问鸡兔分别有几只? 求Free Pascal程序问题如下:第一行输入一个正整数n(1 PASCAL 老鼠走迷宫问题 Free Pascal问题 任意输入一个四位数,输出的结果是其各个数位上的数字之和 free pascal常见语句 求几道 初学 free pascal free pascal 黑洞6174 有重复元素的排列问题pascal Pascal 也分 Turbo Pascal 和 Free Pascal 的 推荐的三种语言是 Free Pascal ,Lazarus ,dec-c++ 上面是从知道里复制来的.请问,Delphi7和里面说到的Turbo Pascal和Free Pascal可以说是什么关系呢?Free Pascal ,Lazarus ,dec- free pascal怎样产生随机数 free pascal case语句的格式问题(谢谢,在free pascal 的case语句中,如果想在case语句中直接输出,应该怎么样的格式呢?例如 case sum fo1:1:=writeln('zhou'); 2:2:=writeln('zhao');writeln(1,2);这样的格式应该怎么写? 猴子吃枣 free pascal 语言free pascal 要用while语句编程求猴子吃枣问题:猴子摘了一堆枣N个,第一天吃了一半,还嫌不过瘾,又多吃了一个:第二天又吃了剩下的一半零一个:以后每天如此,到第十 Free Pascal 和Pascal的区别?为什么竞赛都用Free Pascal?Free Pascal 和Pascal的区别?为什么竞赛都用Free Pascal? 求PASCAL背包问题和无限背包思路和程序 pascal 火柴棒问题的图哪里有啊 请教一道free pascal题:选数(select.pas)【问题描述】已知 n 个整数 x1,x2,…,xn.从 n 个整数中任选 2 个整数相加,可得到一系列的和.例如当 n=4,4 个整数分别为 3,7,12,19 时,可得全部的组合与它们的和