Первое 3)3 потому что 3<4 3>1 и не равно 2
Второе 4)4 потому что 4>1;2 и не равно 3
1)Это с помощью while
var a,p,i,c:integer;
begin
readln(a);
readln(p);
c:=1; i:=0;
while i<p do
begin
c:=c * a;
inc(i);
end;
writeln(c);
readln;
end.
2) Это с помощью repeat
var a,p,i,c:integer;
begin
readln(a);
readln(p);
c:=1; i:=0;
repeat
c:=c * a;
inc(i);
until i=p;
writeln(c);
readln;
end.
3) Это с помощью for
var a,p,i,c:integer;
begin
readln(a);
readln(p);
c:=1;
for i:=1 to p do
c:=c * a;
writeln(c);
readln;
end.
А тебе на чом надо зделать програму?с++,паскаль?
<span>2/ точек по вертикали и горизонтали</span>
()()()()()()()()()()()()()()()()