Ответ:
a = int(input())
b = int(input())
if a==0 and b!=0: # если a=0 и b не равен 0 , то решения
#быть не может
print("no solution") # 0 умноженное на любое число даст 0
if a==0 and b==0: # в случае же когда a и b = 0 то x может
print("many solutions") #принимать любое значение
if a!=0 and b!=0:
print ("x будет равен :" , a//b) #вывод решения уравнения
Program qfdw;
uses crt;
Type
vershina=Record
Tochka:string;
X,Y:real;
end;
ps=File of vershina;
Var f:ps;
z,a,b,c:vershina;
i:integer;
Begin
assign(f,'1.dat');
rewrite(f);
writeln('Введите вершины треугольника и их координаты: ');
for i:=1 to 3 do
begin
writeln(i,'-я вершина');
write('буква: ');read(z.tochka);
write('X=');read(z.x);
write('Y=');read(z.y);
write(f,z);
end;
Close(f);
assign(f,'1.dat');
reset(f);
read(f,a);
read(f,b);
read(f,c);
close(f);
writeln('Cтороны треугольника:');
writeln(a.tochka,b.tochka,' = ',sqrt((a.x-b.x)*(a.x-b.x)+(a.y-b.y)*(a.y-b.y)):5:2);
writeln(c.tochka,b.tochka,' = ',sqrt((c.x-b.x)*(c.x-b.x)+(c.y-b.y)*(c.y-b.y)):5:2);
writeln(a.tochka,c.tochka,' = ',sqrt((a.x-c.x)*(a.x-c.x)+(a.y-c.y)*(a.y-c.y)):5:2);
end.
Байты, КилоБайты, МегаБайты и т.д
1 байт = 8бит
1 килобайт = 1024 байт
1/ Носитель Емкость
Жесткий диск до нескольких терабайт
CD 700Мб
DVD 4,7Гб
Flash до десятков гигабайт
Blue-ray 25 ГБ (однослойный)
50 ГБ (двухслойный)
100/128 ГБ (BDXL)
2/ Сходства-одинаковые размеры (диаметр 120 мм, толщина 1.6 мм), тот же радужный вид. Принцип записи и чтения тоже аналогичный.
Различия - дело в том, что в CD используется инфракрасный лазер (длина волны в воздухе 780 нм). В DVD же применяется красный лазер (650/635 нм). Меньшая длина волны позволяет плотнее размещать информацию на DVD-диске.
Ёмкость DVD сильно превосходит обычный компакт-диск (640 Мб) и составляет 4.38 гигабайта (в смысле 2^30 байт) или 4.7 миллиарда байт.