Program qq;
var i, n, c:real;
begin
readln(i);
c:=i;
while n<>100 do
begin
n:=n+1;
write(c, ' ');
c:=c*i;
end;
writeln();
<span>end.</span>
Program p1;
uses srt;
var a,p,sum:integer;
begin
clrscr;
writeln("read p and a");
read(p);
read(a);
sum:=p*a;
write(sum);
readkey;
end;
Программу написал HRAshton. Я немного изменил
алг
нач
целтаб арр[1:3, 1:3]
цел к, п, ш
нц для ш от 1 до 3
нц для к от 1 до 3
арр[ш, к] := int(rnd(900)+100)
вывод арр[ш, к], ' '
кц
вывод нс
кц
нц для ш от 1 до 3
если ш<>2
то
п := арр[ш, 1]
арр[ш, 1] := арр[ш, 3]
арр[ш, 3] := п
все
кц
вывод нс, нс
нц для ш от 1 до 3
нц для к от 1 до 3
вывод арр[ш, к], ' '
кц
вывод нс
кц
кон
<span>
</span>