Var
a, v : integer;
begin
write('Введите длину ребра:');
readln(a);
v := a * a * a;
writeln;
writeln('Объем = ', v);
<span>end. </span>
Лінивий так-телевізор,ні-ДЗ
32=2^5
26<32
5 битов достаточно для кодировки Мульти
1) 361*2=722<=<=7
Ответ: *2<=<=
2) 497<=49*2=98*2=196*2=392*2=784<=<=7*2=14
Ответ: <=*2*2*2*2<=<=
3)167*2*2*2*2*2=5344<=<=<=5*2=10
Ответ: *2*2*2*2*2<=<=<=*2
A, b, c, D : integer;
begin
Writeln('Введите коэфф-ты а, b и c');
Readln(a,b,c);
D = b * b - 4 * a * c;
Writeln(D);
Readln();
end.
Учтите, что если вам нужна программа для нахождения корней квадратного уравнения, то вам надо проверять все условия. Например, дескриминант может быть равен нулю и тд