Первая задача
var a,b,x,y,z:
real;
begin
write ('х=');
read (x);
write('y=');
read (y);
write ('z=');
read (z);
a:= (x+y-z)/(x*x+2);
write ('a=');
write (a:1:2); end.
Вторая
var a,b,x,y,z:real;
begin
write ('х=');
read (x);
write('y=');
read (y);
write ('z=');
read (z);
a:= 5*((2*x-z)/(3+y*y));
write ('a=');
write (a:1:2);
end.
Uses
System.Collections.Generic,
System;
var
simple: List<integer> := new List<integer>;
i, n, p: integer;
m: longint;
begin
read(n);
for i := 2 to n do
begin
m := 1;
foreach s: integer in simple do
m := m * i mod s;
if m > 0 then begin
simple.Add(i);
// write(i, ' ');
end;
end;
writeln();
foreach s: integer in simple do
begin
if Math.Pow(2, s) - 1 <= longint.MaxValue then begin
m := round(Math.Pow(2, s) - 1);
if (m <= n) and simple.Contains(m) then
write(m, ' ');
end;
end;
end.
Program n1;
var x,y,z: real;
procedure kvur(a,b,c: real);
var D: real;
begin
D:=b*b-4*a*c;
writeln('x1=',(-b+sqrt(D))/2*a);
writeln('x2=',(-b-sqrt(D))/2*a);
end;
begin
write('a=');
readln(x);
write('b=');
readln(y);
write('c=');
readln(z);
kvur(x,y,z);
end.
<span>1) 122(16) вот это число</span>
Модем. Модемы широко применяются для связи компьютеров через телефонную сеть (телефонный модем), кабельную сеть (кабельный модем), радиоволны . Модулятор в модеме изменяет его характеристики в соответствии с изменениями входного информационного сигнала, демодулятор<span> осуществляет обратный процесс при приёме данных из канала связи. Это нужно для передачи информации через сеть, иначе никак.</span>