Program s;
uses crt;
var s,h,a:real;
begin
clrscr;
writeln('введите основание и высоту через пробел');
readln(a,h);
s:=0.5*a*h;
writeln('s= ',s);
readkey;
<span>end.
при вводе 2 и 5 площадь будет равна 5</span>
<span>Целая часть от деления:
</span><span><span>37 div 2 = 18
</span><span>18 div 2 = 9
</span><span>9 div 2 = 4
</span><span>4 div 2 = 2
</span><span>2 div 2 = 1
</span><span>1 div 2 = 0
</span></span><span>Остаток от деления:
</span>37 mod 2 = 1
18 mod 2 = 0
9 mod 2 = 1
4 mod 2 = 0
2 mod 2 = 0
1 mod 2 = 0
1) Остаток от деления 37 на записываем в обратном порядке. Получаем число в 2-ой системе счисления: 100101
<span>37 = 100101(2)
</span><span>
2) Для перевода дробной части числа последовательно умножаем дробную часть на основание 2. В результате каждый раз записываем целую часть произведения.
0.375*2 = 0.75 (целая часть 0)
0.75*2 = 1.5 (целая часть 1)
0.5*2 = 1 (целая часть 1)
0*2 = 0 (целая часть 0)
Получаем число в 2-ой системе счисления: 0110
0.375 = 0110(2)
В итоге получаем число: 100101.0110(2)</span>
Каждый символ может иметь 64 значения, то есть 2^6, тогда на каждый символ выделяется 6 бит.Всего символов - 100. Значит всего нужно 6*100=600 бит=75 байт.
Program aaa;
uses crt;
var a,b,c:integer;
x, y: real;
begin
writeln(' Vvedite a ');
readln(a);
writeln(' vvedite b ');
readln (b);
wriateln(' Vvedite c' );
readln (c);
x:=((2*a^2-b)/(3*c));
y:=(sqrt(x+c^2)+4*a*b);
writeln( 'x=', x, 'y=', y);
<span>end.
Вот программа, к сожалению, паскаля на компе у меня нет, поэтому, думаю, ты сам справишься с подготовкой программы к запуску и тестированию
</span>
Алгори́тм — набор инструкций, описывающих порядок действий исполнителя для достижения некоторого результата.