nikomuneskazhu60
?>

1) в чем разница инструментов Орбита и Панорама (Лапка)?

Информатика

Ответы

Коваль1974

ответ:не в чем

Объяснение:потому что там нет орбиты

danya1509379


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.

Валерьевна1601
1.
алг
нач цел X
ввод X
если X>0 то 
X:=X+1
все
вывод X 
кон

2.
алг
нач цел X
ввод X
если X>0 то
X:=X+1
иначе
X:=X-2
все
вывод X 
кон

3.
алг
нач цел X
ввод X
 если X>0 то
  X:=X+1
 все
 если X<0 то
  X:=X-2
 все
 если X=0 то
  X:=10
 все
вывод X
кон

4.
алг
нач цел X,Y,Z,N
ввод X,Y,Z
N:=0
если X>0 то
N:=N+1
все
если Y>0 то
N:=N+1
все
если Z>0 то
N:=N+1
все
вывод N
кон

5.
алг
нач цел X,Y,Z,N,K
ввод X,Y,Z
N:=0
K:=0
если X>0 то
N:=N+1
иначе
K:=K+1
все
если Y>0 то
N:=N+1
иначе
K:=K+1
все
если Z>0 то
N:=N+1
иначе
K:=K+1
все
вывод N,K
кон

Самые наиболее простые варианты выбрал думаю в самый раз

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

1) в чем разница инструментов Орбита и Панорама (Лапка)?
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Caragyant
dpolkovnikov
Umkatoys50
alexandrxzx09
Elen-ti81459
sav4ukoxana7149
coleslow12
Galliardt Sergeevna1284
nane2924329
ksenia15-79
mashiga2632
YeVgenii
Olifirenko119
Ольга1915
margarita25061961