1. Устройство для вычислений, использовавшееся в XVII в. А) Суммирующая машина Паскаля B) Мейнфрейм. C) Абакус. D) Марк-1. Е) Персональный компьютер. 2. Создатель первой электромеханической счетной машины. A) Конрад Цузе. B) Герман Холлерит. C) Алан Тьюринг. D) Ада Лавлейс. E) Чарльз Бэббидж. 3. Совокупность средств и правил взаимодействия человека и компьютера. A) Интерфейс операционной системы. B B) Текстовый редактор. C) Материнская плата. D) Системный блок. E) Системная шина. 4. Порт, который предназначен для подсоединения сетевого кабеля к системному блоку. A) Ethernet Port. B) VGA Port. C) Audio in/Audio Out. D) PS/2 Port. E) USB Port. 5. Устройство, которое используется для вывода информации на экран компьютера. A) Микрофон B) Клавиатура. C) Монитор. D) Колонки, E) Мышь. 6. Интерфейс операционной системы, обеспечивающий взаи- модействие пользователя и компьютера в диалоговом режиме посредством ввода команде клавиатуры. A) Программный интерфейс, B) Аппаратно-программный интерфейс.

👇

Увидеть ответ

Ответ:

ekaterinasolda

03.06.2020

1. А) суммирующая машина Паскаля

2. В) Герман Холлерит

3. А) интерфейс операционной системы

4. Е) USB Port

5. С) монитор

6. В) аппаратно-программный интерфейс

4,6(9 оценок)

Открыть все ответы

Ответ:

nataliyadydina

03.06.2020

1)
var a:array [1..10] of integer;
      i,sum:integer;
begin
randomize;
sum:=0;
for i:=1 to 10 do
    begin
      a[i]:=random(100)-50;
      write (a[i],' ');
      if a[i] < 0 then sum:=sum+a[i];
    end;
writeln;
writeln ('Summa: ',sum);
readln;
end.

2)
var a:array [1..10] of integer;
      i,max,index:integer;
begin
for i:=1 to 10 do
    begin
       write ('A[',i,'] = ');
       readln (a[i]);
    end;
max:=a[1];
index:=1;
for i:=2 to 10 do
    if a[i] > max then
      begin
        max:=a[i];
        index:=i;
      end;
writeln ('Max: ',max,'.Index: ',index);
readln;
end.

3)
var a:array [1..10] of integer;
      max,min,i,temp:integer;
begin
randomize;
for i:=1 to 10 do
    begin
       a[i]:=random(50);
       write (a[i],' ');
    end;
writeln;
max:=1;
min:=1;
for i:=2 to 10 do
    if a[i] > a[max] then max:=i else
      if a[i] < min then min:=i;
writeln ('Max: ',a[max]);
writeln ('Min: ',a[min]);
temp:=a[min];
a[min]:=a[max];
a[max]:=temp;
for i:=1 to 10 do write (a[i],' ');
end.

4,6(29 оценок)

Ответ:

hsjsjxn

03.06.2020

1)
var
a: array [1..5] of integer;
i,k:integer;
Begin
Writeln('Перечислите элементы массива: ');For i:=1 to 5 do
read(a[i]);
For i:=1 to 5 do
If (a[i] > -1) then write(a[i]:2);
End.
2)
var
a: array [1..5] of integer;
i,k1,k2,max,min:integer;
Begin
min:=MaxInt;
max:=-MaxInt;
Writeln('Перечислите элементы массива: ');
For i:=1 to 5 do
begin
read(a[i]);
if (a[i] > max) then max:=a[i];
if (a[i] < min) then min:=a[i];
end;
For i:=1 to 5 do
begin
If (a[i] = max) then inc(k1);
If (a[i] = min) then inc(k2);
end;
If (k1>k2) then writeln('Больше max элементов')
else writeln('Больше min элементов');
End.
3)
var
a: array [1..5] of integer;
i,k,x:integer;
Begin
Write ('X = ');
read(x);
Writeln('Перечислите элементы массива: ');
For i:=1 to 5 do begin read(a[i]);
if (a[i] = x ) then inc(k);
end;
writeln('kol = ',k) ;
end.

4,5(12 оценок)

Это интересно:

Компьютеры-и-электроника

18.09.2022

Как добавить кнопку Facebook на свой сайт: шаг за шагом...

Транспорт

14.01.2023

Как избежать аварий на дороге...

Компьютеры-и-электроника

17.04.2020

Создание онлайн веб каста с помощью Windows Media Encoder...

Транспорт