1.что такое адресуемость у памяти компьютера? 2.где в компьютере хранятся данные? 3.выберите из списка операционные системы: 1)windows 2)lazarus 3)linux 4)basic 5)ms-dos 4.выберите изсписка название файла: 1)образ.нет; 2)шарики.gi*f 3com; 4)ah*.red 5.отметьте устройства, предназначенные для вывода информации: 1)принтер 2)процессор 3)монитор 4)сканер 5)графопостроитель 6)джойстик 7)клавиатура 8)мышь 9)микрофон 10)акустические колонки 11)дискета 6.что входит в состав системного блока?

2.Где в компьютере хранятся данные?
В памяти - Оперативной и постоянной (HDD)

3.Выберите из списка операционные системы:
1)WINDOWS
3)LINUX
5)MS-DOS

4.Выберите изсписка название файла:
1)образ.нет;
3)математика.com;

5.Отметьте устройства,предназначенные для вывода информации:

устро́йства вы́вода — периферийные устройства, преобразующие результаты обработки цифровых машинных кодов в форму, удобную для восприятия человеком.
1)принтер
3)монитор
5)графопостроитель
10)акустические колонки

6.Что входит в состав системного блока?
материнская плата
Процессор,
оперативная память,
видеоплата,
жесткий диск,
блок питания

{Free Pascal Compiler version 3.0.4+dfsg-23 [2019/11/25] for x86_64}

{Copyright (c) 1993-2017 by Florian Klaempfl and others}

{Target OS: Linux for x86-64}

program test;

Uses Math;

   

   const N = 15;

   

   var

       A : array[1..N] of integer;

       i, mx, k : integer;

   

begin

   Randomize;

   {Генерация и печать массива}

   for i := 1 to N do begin

       A[i] := Random(50);

       write(A[i], ' ');

       if A[i] mod 2 = 1 then mx := A[i]

       end;

   writeln;

   

   

   for i := 1 to N do

       if A[i] mod 2 = 1 then

           if A[i] < mx then begin

               mx := A[i];

               k := i

               end;

   writeln('Число - ', mx, ', позиция - ', k);

end.

Результат выполнения программы:

Вариант 1
var  str:string;
  A,B,i:integer;
 begin
   write('введите ваш текст');
   readln(str);
   for i:=1 to length(str) do begin
     if (str[i]='А')or (str[i]='а') then a:=a+1;
     if (str[i]='Б')or (str[i]='б') then B:=b+1;
   end;
   if (A+B)=0 then write('нет таких букв') else write ('A= ',A,' Б= ',b);
end.

вариант 3
var  str:string;
  A,B,i:integer;
 begin
   write('введите ваш текст');
   readln(str);
   i:=1;
   while i<=length(str) do begin
    if (str[i]='А')or (str[i]='а') then delete(str,i,1);
    i:=i+1;
    end;
   write(str);
      end.