Ответ:
вычисление A в степени n
Объяснение:
выполняется цикл n раз
в теле цикла число A умножается само на себя
Есть языки программирования для конкретных задач
Uses Crt;
var
x,y:real;
begin
Write('Vvedite x,y: ');
Read(x,y);
Writeln((x>1) and (x<7) and (y>6) and (y<8) or
(x>3) and (x<5) and (y>2) and (y<6));
ReadKey
end.
<span>var a:array [1..10] of integer;
i,n,b:integer;
Begin
for i:=1 to 10 do
read(a[i]);
for i:=1 to 10 do
begin
if b=0 then if a[i]<0 then
begin
a[i]:=0;
b:=1;
end;
end;
for i:=1 to 10 do
write(a[i],' ');
End.</span>