Ответ:
1.
var a,n,k,i:integer;
begin
write('Введите основание степени (целое число) ');
readln(a);
write('Введите показатель степени (целое число) ');
readln(n);
k:=1;
i:=0;
while i < n do
begin
k:=k*a;
i:=i+1
end;
writeln(a,'^',n,' = ',k)
end.
2.
var a,n,k,i:integer;
begin
write('Введите основание степени (целое число) ');
readln(a);
write('Введите показатель степени (целое число) ');
readln(n);
k:=1;
for i:= 1 to n do k:=k*a;
writeln(a,'^',n,' = ',k)
end.
Надо " A умножить на A " Например: А = 4 сантиметра . Надо 4 умножить на 4 равно 16 квадратных сантиметров.
Что такое дискретизация? Это нежелательный эффект, который приводит к тому, что качество фотографии заметно ухудшается. Данное явление может быть ассоциировано с любым устройством или же процессом, в котором информация подразделяется на несколько отдельных отсчетов. В данном случае дискретизация может рассматриваться в качестве типа интерференционной картины, если есть определенное соотношение между частотой данного явления и определенной периодической структур - Читайте подробнее на FB.ru: <span>http://fb.ru/article/198004/chto-takoe-diskretizatsiya-chastota-diskretizatsii</span>
Во 2 просто надо дописать 1 строчку
var a,b,c,m,s:integer;
begin
read(a);
b:=a mod 10;
c:=a div 10;
m:=c mod 10;
c:=c div 10;
s:=b+c+m;
write(s);
end.
3) var a:integer;
begin
read(a);
if (a mod 5=0) and (a mod 10 <>0) and (a mod 7=0) then
write('YES') else write('NO');
end.
1)var a:array[1..15] of integer;
i,s:integer;
begin
randomize;
for i:=1 to 15 do a[i]:=random(20)+10;
for i:=1 to 15 do if a[i] mod 3=0 then s:=s+1;
writeln(s);
end.
2)var a: array[1..10] of integer;
i, s: integer;
begin
randomize;
for i := 1 to 10 do a[i] := random(21) - 10;
for i := 1 to 10 do if (a[i] > 0) and (a[i] mod 2 = 0) then s := s + 1;
writeln(s);
end.