Program enot;
VAR p: array [1..7,1..9] of integer;
i,j,s:integer;
begin
s:=0;
for i:= 1 to 7 do
for j:= 1 to 9
do p[i,j]:= random (61)-25;
for i:= 1 to 7 do
begin
for j:= 1 to 9 do
begin
if p[i,j]<0 then s:=s+p[i,j];
write(p[i,j]:5);
end;
writeln();
end;
writeln(s);
<span>end.</span>
В ворде, во вкладке "вставка" жмёшь на "ссылки", там на гиперссылку и просто вводишь адрес
# Так сойдёт?
from math import sqrt
print('Введите коэффициенты a, b, c для ax^2 + bx + c = 0 в виде "a b c", где коэффициент а не равен 0')
a, b, c = list(map(int, input().split())) # здесь поменяй способ ввода квадратного уравнения, если другой нужен
D = b ** 2 - 4 * a * c # дискриминант
if D < 0:
print("Нет решений")
elif D == 0:
x = (-1 * b + sqrt(D)) / (2 * a)
print("Уравнение имеет одно решение:", x)
else:
x1 = (-1 * b + sqrt(D)) / (2 * a)
x2 = (-1 * b - sqrt(D)) / (2 * a)
print("Уравнение имеет два решения:", x1, "и", x2)
В 1 кбите 1000 бит (см. ГОСТ 8.417-2002, Приложение А, табл. А.1, хотя некоторые учителя и учебники все еще ошибочно считают, что в килобите 1024 бита).
Поэтому 2 кбита = 2 х 1000 = 2000 бит.
В 1 байте 8 бит, тогда 2000 бит = 2000 / 8 = 250 байт
Program sber;
const
n = 4;
k = 0.06;
var
fv, x: real;
begin
write('x = ');
readln(x);
fv := x * exp(ln(1 + k) * n);
writeln('Сумма: ', fv);
end.