М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Sultanasem2007
Sultanasem2007
20.08.2021 01:21 •  Информатика

Дан целочисленный массив размера n. удалить из массива первый элемент, равный заданному числу 6, и вывести размер полученного массива и его содержимое. пример . процедура удаления элемента: procedure del (var z: omas; k: byte); //процедура del с описанием формальных параметров- переменных z типа omas и формальных параметров-значений k типа byte var i: byte; //описание локальных переменных i типа byte begin //начало процедуры for i: =k to n-1 do //цикл с параметром: для i от k до n-1 делаем (начиная с элемента с номером k и до предпоследнего элемента) z[i]: =z[i+1]; //элементу массива присваиваем предыдущий элемент z[n]: =0; //последний заменяем на 0 end; //конец процедуры

👇
Ответ:
Zhamik11
Zhamik11
20.08.2021
Const n=20;
type omas=array[1..n] of integer;
Procedure Del (var z:omas; k:byte); 
var i:byte; 
begin 
for i:=k to n-1 do z[i]:=z[i+1]; 
z[n]:=0; 
end; 
var a:omas; i,b:integer;
begin
Randomize;
for i:=1 to n do
 begin
 a[i]:=random(20);
 write(a[i]:4);
 end;
writeln;
b:=6;
i:=1;
while (i<=n)and(a[i]<>b) do i:=i+1;
if i<=n then
  begin
  Del(a,i);
 writeln('Размерность массива = ',n-1);
 for i:=1 to n-1 do write(a[i]:4);
 writeln;
 end  else writeln('Массив не изменился');
end.
Пример:
  12  13   6   7  17   1  18  17   3   2  12   3  16   6   7  13   0   2   5  18
Размерность массива = 19
  12  13   7  17   1  18  17   3   2  12   3  16   6   7  13   0   2   5  18
4,6(96 оценок)
Открыть все ответы
Ответ:
Ychenik77
Ychenik77
20.08.2021
Казалось бы, ответ на вопрос какой народ придумал арабские цифры гениально прост. Ну кто еще, как ни арабы, могли придумать наши с вами цифры, если они носят название арабские?
Однако не все так просто. Если посмотреть на израильские древние языки, то написание цифр там, как ни странно, совершенно не такое, к какому мы привыкли. Их цифры представляют из себя завитушки и крючёчки, и только их цифра «9″ чуть-чуть смахивает на нашу девятку.
Так кто же тогда придумал арабские цифры? На самом деле, знакомые нам цифры (1, 2, 3, …, 9) придумали вовсе не арабские народы. Это написание пришло к нам из Индии. Именно индийские древние народы так обозначали цифры. Конечно, сегодня данное написание претерпело множество изменений, но именно в древней индийской письменности можно разглядеть похожие «закорючки» . Арабские цифры были придуманы в Древнем Востоке для того, чтобы людям было удобнее записывать сложные математические вычисления. Ведь тогда на территории Древнего Востока существовало большое количество научных и псевдонаучных школ.
Но почему тогда цифры названы арабскими? Оказывается, из Индии в Европу эти цифры принесли именно арабы. Однако напрашивается вопрос – почему же тогда арабы не оставили такое написание и себе?
4,4(37 оценок)
Ответ:
Страус123552
Страус123552
20.08.2021
Var
  i,k,n,p:longint;
  f:array[1..10,1..2] of longint;
begin
  p:=2; i:=1;
  f[1,1]:=1; f[1,2]:=1;
  Write('Введите натуральное число не больше 2 147 483 647: ');
  Read(n);
  Write(n,' = 1');
  while n<>1 do begin
    if (n mod p)=0 then begin
      if f[i,1]<>p then
      begin Inc(i); f[i,1]:=p; f[i,2]:=1 end
      else Inc(f[i,2]);
      n:=n div p
    end
    else inc(p)
  end;
  k:=i;
  for i:=2 to k do
  begin
    Write(' x ',f[i,1]);
    if f[i,2]>1 then Write('^',f[i,2])
  end;
  Writeln
end.

Тестовое решение:
Введите натуральное число не больше 2 147 483 647: 223092870
223092870 = 1 x 2 x 3 x 5 x 7 x 11 x 13 x 17 x 19 x 23

Введите натуральное число не больше 2 147 483 647: 65536
65536 = 1 x 2^16

Введите натуральное число не больше 2 147 483 647: 2147483647
2147483647 = 1 x 2147483647
4,5(31 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ