000011100010111000101100000011100010111000101110000011100010111000011101
<span>000011100010111000011110000011100010111000101100</span>
Program Treug;
Var a,b: real;
Begin;
writeln('Введите a и b');
readln(a,b);
writeln('Площадь треугольника: ' a*b);
writeln('Периметр треугольника:' 2*(a+b);
End.
вот легкий код
Объем видеопамяти<span> рассчитывается по формуле: </span>V=I*X*Y, где I<span> – глубина цвета отдельной точки, </span>X, Y –<span>размеры экрана по горизонтали и по вертикали (произведение х на у – разрешающая способность экрана).
</span>1.Всего точек на экране (разрешающая способность): 1280 * 800 = 1024000
<span>2. Необходимый объем видеопамяти V= 64 бит * 1024000 = 65536000 бит = 8192000 байт = </span>8000 Кбайт<span>.</span>
Var x,y: real;
begin
read(x);
y:=(2*x)/(4-x);
writeln('y=',y);
end.
Вторая задача
var k,i,p:integer;
begin
p:=1;
read(k);
for i:=1 to k do
if i mod 2=1 then p:=p*i;
writeln( 'p=',p);
end.