Вот, например, что нашла. 1,2,3 - уже не др.русь, но вдруг надо. а 4,5 рисунок история развития плечевой одежды в др.руси!
// Перевод дюймов в см
const d_v_sm = 2.54; // Дюймов в 1 см
var x:real;
begin
Write('Введите кол-во дюймов: ');
Readln(x);
Writeln(x,' дюймов = ',x/d_v_sm,' сантиметров');
end.<span>
</span>
В D1 пиши: $A1+B$1+C$1 в низ по аналогии
Хахахаа, я такую программу сам создавал от нефиг делать)) ток во втором мб не нужно в квадрате???
исходник от java прикрепил,
вот паскаль
var a,b,c,d,x1,x2 :extended;
begin
readln(a,b,c);
d:=(b*b)-(4*a*c);
if d<0 then begin write('Korney net!'); end;
if d=0 then begin
if b<0 then begin b:=b+b+b; x1:=b/(2*a); write(x1); end;
if b>0 then begin b:=b-b-b; x1:=b/(2*a); write(x1); end; end;
if d>0 then begin
if b<0 then begin b:=b+b+b; x1:=(b-sqrt(d))/(2*a); x2:=(b+sqrt(d))/(2*a); write(x1,x2); end;
if b>0 then begin b:=b-b-b; x1:=(b-sqrt(d))/(2*a); x2:=(b+sqrt(d))/(2*a); write(x1,x2); end;
end; end.
1. выделить объект
2. нажать на нем правую кнопку мыши