ні........
тому що вони майже однакові, хоча це залежить від формата
<em><u>Компьютерная сеть</u></em> (англ. <em>Computer NetWork,</em> от <em>net</em> - сеть, и <em>work</em> - работа) - это система обмена информацией между компьютерами. Представляет собой совокупность трех компонент:
Var d,s:real;
i:integer;
begin
for i:= 1 to 20 do writeln(i,'дюйм = ',i*2.54)
<span>end.</span>
Program q3; var: a,b,c,D,x1,x2: real;(вводим переменные) readln(a); readln(b); readln(c);(считываем переменные с клавиатуры) D:=b*b-4*a*c;(формула дискриминанта) if(D<0) then writeln('нет решений');(проверяем дикриминант меньше 0) if(D=0) then do begin x1:=-b/2*a; writeln(x1); end; if(D>0) then do begin x1:=(-b+sqrt(D))/2*a; x2:=(-b-sqrt(D))/2*a;(находим корни) writeln(x1); writeln(x2); end; end.