FOR15
program fofgogjoj;
var
n,i : integer;
a,p : real;
begin
Writeln('Введите число.');
Readln(a);
Writeln('Введите степень');
Readln(n);
p:=1;
for i:=1 to n do
begin
p:=p*a;
end;
if a<0 then
p:=1/p;
Writeln(p :6:3);
readln;
<span>end.
FOR16
</span><span>program fofgogjoj;
var
<span>i, n: integer;</span>
<span>a, p: real;
</span></span><span>begin
<span>Writeln('Введите число:');</span>
<span>Write(' a = ');</span>
Readln(a);
<span>Writeln('Введите показатель степени (n > 0):');</span>
<span>Write(' N = ');</span>
Readln(N);
<span>Writeln('Все степени числа ', a, ' от 1 до ', n, ':');</span>
<span>p:= 1;</span>
<span>for i:=1 to n do</span>
begin
<span>p:= p*a;</span>
<span>Writeln(' ', a, ' в степени ', i, ': ', p:0:2)
</span><span>end</span>
<span>end.</span></span>
Ответ:
700 : 2.45 ≈ 285 композиций
Объяснение:
Немного не понял вопроса, но если составные условия, то наверное имеется ввиду AND(и), OR(или), XOR(исключающее или).
and работает если все условия правдивы
if (a=5) and (a*a/a=5) do ...
or работает если одно и более условий верны
if(a=5) or (a=3) do ...
xor работает если ТОЛЬКО ОДНО условие верно
if (a=5) xor (a=3) do ...
Образная информация - это вкусовые, обонятельные, осязательные ощущения, картины природы, живописи.
Запах цветов, сладкий вкус конфеты, мягкий ковер, красивый вид на горы.
А) Таблица;
Б) Многоуровневый маркированный список;
В) Нумерованный;
Г) Нумерованный;
Д) Многоуровневый нумерованный список.
PS Нумерованные и маркированные списки, на мой взгляд, в данных ответах выбраны оптимальными, но они могут быть заменены друг другом.