Program yravnenie;
Var
a,b,c,D,x1,x2,p,q:Real;
Begin
Repeat
Write('a= ');
Readln(a);
if a=0 then writeln('Error: a=0. Enter another value');
Until a<>0;
Write('b= ');
Readln(b);
Write('c= ');
Readln(c);
p:=b/a;
q:=c/a;
D:=Sqr(p/2)-q;
If D>0 then
begin
Writeln('x1 = ',-p/2-Sqrt(D):0:5);
Writeln('x2 = ',-p/2+Sqrt(D):0:5);
end
else
If D=0 then
Writeln('x1 = x2 = ',-p/2:0:5)
else
begin
Writeln('x1 = ',-p/2:0:5,'-i*',Sqrt(-D):0:5);
Writeln('x2 = ',-p/2:0:5,'+i*',Sqrt(-D):0:5);
end;
Readln;
End.
Посути вроде нужно 252 10сс перевести в 25сс пусть будет число из 2х символов
Схема и таблица - в прилагаемом файле.
Напишем программу, которая будет считать сумму всех чисел от 1 до 1000.
<span><span>#include <iostream>
</span>
using namespace std;<span>
int main()
</span>{
int i; // счетчик цикла
int sum = 0; //сумма чисел от 1 до 1000.
setlocale(0, "");
for (i = 1; i <= 1000; i++) // задаем начальное значение 1, конечное 1000 и задаем шаг цикла - 1.
{
sum = sum + i;
}
cout << "Сумма чисел от 1 до 1000 = " << sum <<
endl;
return 0;
}</span>
2^4y Мбайт= 2^3x бит
<span>2^23+4y=2^3x </span>
<span>23+4y=3x - это первое уравнение </span>
<span>2^x Кбайт= 2^y Мбайт</span>
<span>2^x = 2^ 10+y </span>
<span>x=10+y - второе уравнение </span>
<span>23+4y= 3(10+y) </span>
<span>23+4y=30+3y </span>
<span>y=7 </span>
<span>x=17</span>