19k=49+57+107=213
kzn=107+122+110=339
z99=122+57+57=236
91Я=57+49+159=265
Ответ kzn
Var
a, b, x: real;
begin
read(a, b);
x:= -b/a;
writeln(x);
end.
1. Выделяем текст, на который должна быть ссылка
2. Правой кнопкой мыши нажимаем на выделенном фрагменте и в выпвшем меню выбираем Гмперссылка. Или в верхнем меню выбираем Гиперссылка (<span><span>hyperlink</span></span>)
В HTML будет так - <a href="http://sait.ru">Текст ссылки </a>
<em>var a, b, c, n :integer; </em>
<em>procedure max(a,b:integer; var c :integer); </em>
<em>begin </em>
<em> if a>b then c:=a else c:=b; </em>
<em>end;</em>
<em>begin</em>
<em> read (a,b,c);</em>
<em> max(a,b,a);</em>
<em> max(a,c,a);</em>
<em> write (a);</em>
<span><em>end.</em></span>
Const
n = 40;
var
s,i,ind,k1,k2: integer;
mas: array[1..n] of integer;
begin
s := 0;
for i:=1 to n do s := s+ mas[i];
Writeln ('сумма элементов массива: ',s);
s := 1;
for i:=1 to n do s := s * mas[i];
Writeln ('произведение элементов массива: ',s);
s := 0;
for i:=1 to n do s := s + mas[i]*mas[i];
Writeln ('сумма квадратов элементов массива: ',s);
s := 0;
for i:=1 to 6 do s := s+ mas[i];
Writeln ('сумма первых 6 элементов массива: ',s);
ind:=0;
repeat
Writeln('Введите К1: '); read(k1);
Writeln('Введите К2: '); read(k2);
if (k2>k1) then ind := 1;
until (ind=1);
s := 0;
for i:=k1 to k2 do s := s+ mas[i];
Writeln ('сумма элементов массива с k1-го по k2-й: ',s);
end.