Pascalの宿題は俺にやらせろ！！Part2

Pascalの宿題は俺にやらせろ！！Part2 at TECH

705:デフォルトの名無しさん
07/12/16 12:00:47
>>704
program prog1(input, output);
var n,a,b : integer;
begin
　　　　write('初項a : ');
　　　　read(a);
　　　　write('公差b : ');
　　　　read(b);
　　　　for n := 1 to 20 do writeLn(n:3, (a+b*(n-1)):10);
end.

次ページ

続きを表示

1を表示