256 в 2-ую -100000<span>000;
256 в 8-ую - </span><span>400;
256 в 16-ую -100;
256 в 4-ую - 10000;
256 в 7-ую - 514;
</span>
Var a: real;
i, k: integer;
begin
readln(k);
for i := 1 to k do
a := sqrt(2 + a);
writeln(a);
<span>end.
Вот так, насколько я понимаю: вычисляем с конца корень из 2, потом к нему прибавляем 2 и опять вычисляем корень... И опять х) В общем, должно получится</span>
Var a,b,c:real;
begin
writeln('введите значения трех углов:');
readln(a,b,c);
if (a+b+c)<>180 then writeln('введены некорректные данные')else
if (a=90)or(b=90)or(c=90) then writeln('прямоугольный')else
if (a=b)and(b=c) then writeln('равносторонний')else
if (a=b)or(b=c)or(a=c) then writeln('равнобедренный')else
writeln('разносторонний')
end.
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
write(ReadSeqInteger(8).Where(x->(x mod 3=0) and (x mod 10=4)).Count());
end.
1. (A v ¬A) & B = (A + ¬A) * B = 1 * B = B;
2. A & (A v B) & (C v ¬B) = A * (A + B) * (C + ¬B) = A * (C + ¬B) = A & (C v ¬B)
3. A & ¬B v B & C v ¬A & ¬B = A * ¬B + B * C + ¬A * ¬B = A * ¬B + ¬A * ¬B + B * C =
= ¬B * (A + ¬A) + B * C = ¬B * 1 + B * C = ¬B + B * C = ¬B + C = ¬B v C
4. A v ¬A & B = A + ¬A * B = A + B = A v B