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

Почему современные персональные ко мпьютеры в сотни раз меньше но при этом сотни тычячи раз быстрее эвм первого поколения

👇
Ответ:
drsamsoff
drsamsoff
15.06.2020
Потому используют БИС большие интегральные схемы
4,7(41 оценок)
Открыть все ответы
Ответ:
eryana
eryana
15.06.2020

Задание 1:

Задан массив: var C: array [1..10] of integer; Являются ли корректными имена и/или значения и/или индексы элементов массива: C[0]=10; C[20]=20;

ответ: нет (так как в массиве C индексы объявлены от 1 до 10).

Задание 2:

Задан массив: var R: array [1..34] of char; Являются ли корректными имена и/или значения и/или индексы элементов массива: R[33]=‘x’; R[34]=‘y’;

ответ: да (при условии, что под ‘ ’ подразумевается ' ').

Задание 3:

Как изменится значение переменной S после выполнения фрагмента программы? s:=1; k:=0 for i:=1 to n do s:= s*f[i] ;

ответ: недостаточно данных (неизвестные массив f и переменная n).

4,4(99 оценок)
Ответ:
azalhanovahalid
azalhanovahalid
15.06.2020
Delphivar  a1, a2: array of integer;  n, c, i: integer; procedure PrintDescending(a: array of integer); var i, j, max: integer; begin  for i := 0 to Length(a) - 1 do  begin    for j := 0 to Length(a) - 1 do      if a[j] > a[max] then max := j;    Write(a[max], ' ');    a[max] := -10001;  end; end; begin  //Запрашиваем ввод длины массива:  Write('Введите длину массива: ');  Read(n);    //Устанавливаем длину массивов:  SetLength(a1, n);  SetLength(a2, n);    //Заполняем первый массив случайными числами:  for i := 0 to n - 1 do    a1[i] := Random(201) - 100;    //Заполняем второй массив только нечётными элементами первого:  for i := 0 to n - 1 do    if Abs(a1[i]) mod 2 = 1 then      begin      a2[c] := a1[i];      c := c + 1;    end;    //Урезаем второй массив:  SetLength(a2, c);    //Выводим первый массив:  for i := 0 to n - 1 do    Write(a1[i], ' ');  Writeln;    //Выводим второй массив в порядке убывания:  if c = 0 then Write('Нечётных элементов нет.')  else PrintDescending(a2); end.

Пример работы:


Дан одномерный массив целого типа. Получить другой массив, состоящий только из нечетных чисел исходн
4,4(61 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ