Ответ:
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.
<span>Символы, находящиеся справа от курса, удаляют с помощью клавиши Delete</span>
Могу написать типо вводиш 1 и пишет форма, вводишь 2 пишет тик и т.д. сойдет?
1)“Все караси - рыбы”, “Интеллектуальная собственность охраняется законом”, “Все квадраты – равносторонние прямоугольники”.
2)<span>“Ни один лев не есть травоядное животное”. Видим полную несовместимость субъекта и предиката. Объемы их полностью исключают друг друга.
3)</span>“Некоторые студенты - спортсмены”. Здесь S и P – перекрещивающиеся понятия, их объемы совпадают частично.“Некоторые преступления являются должностными”: предикат подчинен субъекту. Объем предиката полностью входит в объем субъекта, объем субъекта лишь частично совпадает с объемом предиката.<span>
4)</span>“Некоторые студенты не являются спортсменами” – часть объема субъекта входит в объем предиката, это перекрещивающиеся понятия.<span>“Некоторые геометрические фигуры не являются треугольниками”: субъект и предикат – в отношении подчинения.</span>