Uses crt;
var a,b,c,x1,x2,x,D:real;
begin
writeln('Введите коэффициенты уравнения');
writeln;
write('a= ');
readln(a);
write('b= ');
readln(b);
write('c= ');
readln(c);
D:=b*b-4*a*c;
if D<0 then
writeln('Корней нет')
else
begin
if D=0 then
x:=-b/(2*a);
writeln ('x= ',x);
else
begin
x1:=(-b+sqrt(D))/(2*a);
x2:=(-b-sqrt(D))/(2*a);
writeln ('x1= ',x1);
writeln ('x2= ',x2);
end;
end;
end.
const
n = 30;
var
a: array [1..n] of integer;
s, i: integer;
begin
for i := 1 to n do
begin
a[i] := random(151) + 50;
writeln('Дом ', i, ' = ', a[i]);
end;
for i := 1 to n do
s := s + a[i];
writeln('Всего ', s);
end.
' 1. Даны 2 массива a и b каждый из 12 элементов.Найти R=pi*b(i)/a(max)
Function Zadanie20683579(A, B)
max = A(0)
for i = LBound(A, 1) To UBound(A, 1)
if max < A(i) then max = A(i)
next
R = 1
for i = LBound(B, 1) To UBound(B, 1)
r = r * B(i)
next
Zadanie20683579 = r / max
End Function
Function RandomArray(n, max)
ReDim A(n)
Randomize
for i = LBound(A, 1) To UBound(A, 1)
A(i) = max * Rnd
next
RandomArray = A
End Function
Msgbox Zadanie20683579(RandomArray(12, 50), RandomArray(12, 50))
k=4*40*64
i=16 бит
I=ki => (2^2*40*2^7*2^4)/2^3 = 2^10*40 байт (40496)
I=ki => (2^2*40*2^7*2^4)/2^3*2^10= 40*2^3 кбайт (320)
Видимо ты в 4 ответе забыл дописать сотню - 3
Напиши:Монитор,Мышка,Клавиатура,Системный блок
И сфоткай их