Для того чтобы заменить часть текстового сообщения на другой текст, в ячейке используется функция —-

Скачать PDF

Следить

Править

Джеро́ламо (Джироламо, Иероним) Карда́но (лат. Hieronymus Cardanus, итал. Girolamo Cardano, Gerolamo Cardano; 24 сентября 1501, Павия — 21 сентября 1576, Рим) — итальянский математик, инженер, философ, врач и астролог. В его честь названы открытые Сципионом дель Ферро формулы решения кубического уравнения (Кардано был их первым публикатором), карданов подвес, карданный вал и решётка Кардано.

Джероламо Кардано

итал. Gerolamo Cardano

GirolamoCardano.jpeg

Дата рождения

24 сентября 1501

Место рождения

Павия, Миланское герцогство[1]

Дата смерти

21 сентября 1576 (74 года)

Место смерти

Рим, Папская область[2][3][1]

Страна

итальянцы

Научная сфера

математика, инженерия

Место работы

Болонский университет

Павийский университет

Альма-Падуанский университет

Известные уче

Объяснение:

Это?

Const
  n = 15;

var
  x: array[1..n] of integer;
  i, b, s: integer;

begin
  Randomize;
  Writeln('Элементы массива');
  for i := 1 to n do
  begin
    x[i] := Random(50);
    Write(x[i]:3);
  end;
  Writeln;
  Write('Введите значение b -> '); Readln(b);
  s:=0;
  for i := 1 to n do if x[i]>b then s:=s+b;
  Writeln('Сумма элементов, больших ',b,', равна ',s)
end.

Тестовое решение:
Элементы массива
  8 46 29 23 21 14 14  8 20 26 15 49 44 35 33
Введите значение b -> 30
Сумма элементов, больших 30, равна 150

const
  n = 15;

var
  x: array[1..n] of integer;
  i, b: integer;

begin
  Randomize;
  Writeln('Элементы массива');
  for i := 1 to n do
  begin
    x[i] := Random(50);
    Write(x[i]:3);
  end;
  Writeln;
  Write('Введите значение b -> '); Readln(b);
  i:=1;
  while (x[i]<>b) and (i<n) do Inc(i);
  if x[i]=b then Writeln('x[',i,']=',b)
  else Writeln('Нет элементов со значением, равным ',b)
end.

Тестовое решение:
Элементы массива
 24  6 28 46 25  9 12 47 34  0 20 47 15 10 34
Введите значение b -> 20
x[11]=20