Program Zadacha;
var
x, y: real;
Begin
Write('Enter x, y ');
ReadLn(x, y);
WriteLn(x, ' + ', y, ' = ', x+y);
WriteLn(x, ' - ', y, ' = ', x-y);
WriteLn(x, ' * ', y, ' = ', x*y);
WriteLn(x, ' / ', y, ' = ', x/y);
ReadLn;
End.
если нужны закладки(якоря) делай так, пиши тег и указывай его id
Пример:
<div id = "main">Tralalala</div>
Потом делай ссылку <a></a> и указывай ее атрибут href на # + id якоря
Пример:
<a href = "#main">Go to main</a>
<div id = "main">Tralalala</div>
Program a1;
var a,b,c,x,x1,x2,d:real;
begin
write('Введите а '); read(a);
write('Введите b '); read(b);
write('Введите c '); read(c);
begin
d:=sqr(b)-4*a*c;
if d<0 then
begin
write('Нет корней');
end
else
begin
if d=0 then
begin
x:=-b/(2*a);
write('x=' , x);
end
else
begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
write('x1=',x1,'x2=',x2);
end;
end;
end;
end. <span> </span>
Кенгуру-в длину 6-10м,в высоту-до 3м
Тигр-4-5м
Долгоног-3-5м
Снежный барс-в высоту 3-4м
Антилопы,олени,зубр,страус -в высоту 2м
Озерная лягушка-в длину 1м
Зелёный кузнечик-в длину 2м
Начиная от единицы, y будет удваиваться, пока у меньше 100. Т.е. у будет идти по степеням двойки, начиная с нулевой. Ближайшая меньшая к ста степень двойки - шестая, она дает значение 64 и для нее цикл выполнится последний раз, давая следующую, седьмую степень двойки, равную 128.
Ответ: 128