sandraustaow6o7c
11.01.2023 05:39

ребят сделать практическую работу. каждому.


ребят сделать практическую работу. каждому.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Stanmashyna201
14.11.2022 08:18

Знание иностранных языков - это не только полезный навык в повседневной жизни, но также одно из основных требований при приеме на работу. В настоящее время необходимость в знании одного или даже нескольких иностранных языков приобретает всё более явную актуальность.

Секретарю знание языка (английского или немецкого) необходимо не только в поездке в отпуск за границу, но также и на приеме деловых партнёров из-за рубежа, в обыденной жизни при чтении новостей или просмотре фильмов. Поэтому, большое количество рутинных обыденных и повседневных операций, которые не требовали ранее знания иностранного языка, сегодня, ввиду развития процессов международной интеграции и повсеместному стремлению бизнеса к глобализации, становятся всё более затруднительными, если опираться только на один язык.

Однако сегодня одного только знания иностранных языков бывает недостаточно, поскольку объём информации, которую необходимо ежедневно переводить, существенно возрос. Вместе с тем, эта задача успешно решается, и ни для кого не составляет труда всего за несколько секунд перевести контракт или контент иностранного сайта. А всё потому, что переводом в этом случае занимается программа-переводчик: человек не успевает и глазом моргнуть, а перевод уже готов.

0,0(0 оценок)
Ответ:
JesperWecksell
03.06.2021 10:00
Const
  n=10;
var
  xy:array[1..2*n] of real;
  Lmax,L:real;
  i,imax:integer;
begin
  Randomize;
  Writeln('Координаты точек');
  Lmax:=0;
  for i:=1 to n do
  begin
    xy[2*i-1]:=101*Random-50; { случайное число на [-50..50] }
    Write(i:2,xy[2*i-1]:8:3);
    xy[2*i]:=101*Random-50;
    Writeln(xy[2*i]:8:3);
    L:=sqr(xy[2*i-1])+sqr(xy[2*i]);
    if Lmax<L then begin Lmax:=L; imax:=i end
  end;
  Writeln('Наиболее удалена от начала координат');
  Writeln('точка A[',imax,'] (',xy[2*imax-1]:0:3,',',xy[2*imax]:0:3,'),');
  Writeln('расстояние составляет ',sqrt(Lmax):0:3)
end.

Тестовое решение:
Координаты точек
 1  -7.758 -12.799
 2  14.569  -5.722
 3 -20.827   2.768
 4  16.387  35.180
 5  43.135 -17.903
 6  42.006  11.257
 7  40.026  -4.777
 8 -32.236  33.900
 9 -13.453  45.271
10   8.171   7.245
Наиболее удалена от начала координат
точка A[9] (-13.453,45.271),
расстояние составляет 47.227
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота