angelina-uj1350
?>

№1) что выведет на экран данная программа? var k, m: integer; dat: array[1..10] of integer; begin dat[1] : = 12; dat[2] : = 15; dat[3] : = 17; dat[4] : = 15; dat[5] : = 14; dat[6] : = 12; dat[7] : = 10; dat[8] : = 13; dat[9] : = 14; dat[10] : = 15; m : = 0; for k : = 1 to 10 do if dat[k] = 15 then begin m : = m+1; end; writeln(m); end. №2) чему равны элементы массива в? var b: array[1..5] of integer; i: integer; begin for i: =1 to 5 do if i mod 2 = 0 then a[i]: =5 else a[i]: =10; end. выберите один или несколько ответов: a. все элементы массива имеют разное значение b. элементы равны 5 10 5 10 5 c. сумма элементов делится на каждый из элементов массива без остатка d. элементы равны 10 5 10 5 10 e. сумма элементов массива делится на 15 №3) "разнотипных" "понятие" "значение номер мнение имя расположение однотипных массив - это совокупность "" элементов, имеющих общее "" , но у каждого свое "" .

Информатика

Ответы

OlgaVasilevna
1) Вычисляется кол-во элементов массива равных 15

2) d. Элементы равны 10 5 10 5 10, потому что 1 - нечетное

3) Массив - это совокупность "пронумерованных" элементов, имеющих общее "тип" , но у каждого свое "значение" .
Nurislamovna1543
Вариант 11 Дядя Федор, кот Матроскин и пес Шарик летом жили в Простоквашино, а папа с мамой слали им письма, посылки, телеграммы и бандероли, которые доставлял почтальон Печкин. Каждое письмо весило в среднем 100 г, каждая посылка - 5 кг, каждая телеграмма - 50 г, каждая бандероль - 500 г. Дядя Федор получил 10 писем, 2 посылки, 10 телеграмм и 1 бандероль. Кот Матроскин получил 4 письма, 1 посылку, 2 телеграммы и 1 бандероль. Пес Шарик не получил ни одного письма, ни одной телеграммы, зато получил 4 посылки и 2 бандероли.Построить электронную таблицу, из которой будет видно: сколько и какой почты получил каждый из трех жителей Про-стоквашино; сколько килограммов почты получил каждый из трех простоквашинпев; сколько весила вся доставленная Печкиным почта одного вида; какой общий груз пришлось перенести почтальону Печкину.  смотри хls
Решить одну из , и сделать таблицу по информатике вариант 11 дядя федор, кот матроскин и пес шарик л
ckati
Procedure TForm1.Button1Click(Sender: TObject);
var
  x1,y1,x2,y2 : double;
  d1,d2 : double;
begin
  x1:= StrToFloat( Edit1.Text);
  y1:= StrToFloat( Edit2.Text);
  x2:= StrToFloat( Edit3.Text);
  y2:= StrToFloat( Edit4.Text);

  d1:=Sqrt(x1*x1+y1*y1);  //Теорема Пифагора
  d2:=Sqrt(x2*x2+y2*y2);  //Теорема Пифагора

  if (d1<d2) then
    Label1.Caption := 'Ближе точка с координатами X1,Y1'
  else
    if (d1>d2) then
      Label1.Caption := 'Ближе точка с координатами X2,Y2'
    else
      Label1.Caption := 'Точки находятся на одинаковом расстоянии'
end;

Для увеличения быстродействия алгоритма можно d1 и d2 рассчитывать так: 
d1:= x1*x1+y1*y1;
d2:= x2*x2+y2*y2;

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

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

№1) что выведет на экран данная программа? var k, m: integer; dat: array[1..10] of integer; begin dat[1] : = 12; dat[2] : = 15; dat[3] : = 17; dat[4] : = 15; dat[5] : = 14; dat[6] : = 12; dat[7] : = 10; dat[8] : = 13; dat[9] : = 14; dat[10] : = 15; m : = 0; for k : = 1 to 10 do if dat[k] = 15 then begin m : = m+1; end; writeln(m); end. №2) чему равны элементы массива в? var b: array[1..5] of integer; i: integer; begin for i: =1 to 5 do if i mod 2 = 0 then a[i]: =5 else a[i]: =10; end. выберите один или несколько ответов: a. все элементы массива имеют разное значение b. элементы равны 5 10 5 10 5 c. сумма элементов делится на каждый из элементов массива без остатка d. элементы равны 10 5 10 5 10 e. сумма элементов массива делится на 15 №3) "разнотипных" "понятие" "значение номер мнение имя расположение однотипных массив - это совокупность "" элементов, имеющих общее "" , но у каждого свое "" .
Ваше имя (никнейм)*
Email*
Комментарий*

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

Kashirina
Boyaris
Emasterova77
manager6
AnastasiyaSkripin1283
ЛаринаЛощаков
prokodasha
Svetlana1877
djikia88
medvik
Шабунина-Евгения1883
verkop9
peresvetoff100015
turovvlad
TrubnikovKlimenok926