А) A = 3, B = 4, C = 5
НЕ (3=4) ИЛИ НЕ (3<5) ⇒ НЕ Ложь ИЛИ НЕ Истина ⇒ Истина ИЛИ Ложь ⇒ Истина
Б) A = -2, B = -2, C = 0
НЕ (-2=-2) ИЛИ НЕ (-2<0) ⇒ НЕ Истина ИЛИ НЕ Истина ⇒ Ложь ИЛИ Ложь ⇒ Ложь
В) A = 0, B = 0, C = -2
НЕ (0=0) ИЛИ НЕ (0<-2) ⇒ НЕ Истина ИЛИ НЕ Ложь ⇒ Ложь ИЛИ Истина ⇒ Истина
Г) A = -2, B = 0, C = -2
НЕ (-2=0) ИЛИ НЕ (-2<-2) ⇒ НЕ Ложь ИЛИ НЕ Ложь ⇒ Истина ИЛИ Истина ⇒ Истина
Ответ: <span>Б) A = -2, B = -2, C = 0 </span>
Program help;
uses Crt;
var a,cot,cpo:integer;
begin
ot:=0;po:=0;cot:=0;cpo:=0
repeat
writeln('Число: ');
readln(a);
if a<0 then begin ot:=ot+a; inc(cot);end else
if a>0 then begin po:=po+a; inc(cpo); end else
if a=0 then begin
writeln('Кол-во положительных чисел: ',cpo);
writeln('Кол-во отрицательных чисел: ',cot);
end;
until a=0;
readln;
end
Вот) Тут используется формула
![a^b=e^{b*\text{log}_e{a}}](https://tex.z-dn.net/?f=a%5Eb%3De%5E%7Bb%2A%5Ctext%7Blog%7D_e%7Ba%7D%7D)
и, как я понимаю, всё таки
![a_n=\frac{1}{2n}](https://tex.z-dn.net/?f=a_n%3D%5Cfrac%7B1%7D%7B2n%7D)
, а не
![a_n=\frac{1}{2}n](https://tex.z-dn.net/?f=a_n%3D%5Cfrac%7B1%7D%7B2%7Dn)
var
x, res: real;
i, n: integer;
begin
writeln('Enter n, x:');
readln(n, x);
res := 0;
for i := 1 to n do
res := res + cos(exp(i * ln(x)));
writeln(res);
end.
=======
var
A: real;
i: integer;
begin
writeln('Enter A:');
readln(A);
i := 1;
while 1 / (2 * i) >= A do
i := i + 1;
writeln('a_', i, ' = ', 1 / (2 * i));
end.
Будет в 23 в 16 системе счисление
Using System;
namespace znanya
{
class Program
{
static void Main(string[] args)
{
Random rnd = new Random();
int kol = 0;
int[] arr = new int[10];
for(int i=0;i<10;i++)
{
arr[i] = rnd.Next(-1000, 1000);
if (arr[i] % 5 == 0)
kol++;
Console.Write(arr[i] + " ");
}
Console.WriteLine();
Console.WriteLine("{0} чисел кратно 5", kol);
Console.ReadKey();
}
}
}