Блок схему пж Program b3; var a, i, p: Integer; begin WriteLn(a); Read(a); p := 3; for i := 1 to 5 do begin p := p * a; WriteLn
Блок схему пж
Program b3;
var a, i, p: Integer;
begin
WriteLn(a);
Read(a);
p := 3;
for i := 1 to 5 do
begin
p := p * a;
WriteLn(p);
end;
end.
Program b3;
var a, i, p: Integer;
begin
WriteLn(a);
Read(a);
p := 3;
for i := 1 to 5 do
begin
p := p * a;
WriteLn(p);
end;
end.
1 ответ:
Читайте также