Запишите в тетрадь устройства, изображённые в таблице, которые хранят файлы​

Объяснение:

1 картинка-жесткий диск,4 картинка-флешка,6-дискета,8-диск,10-диск

Program Ulitka;Var SunnyDay: Array [1..30] Of Boolean; a, b, c, i: Integer;Begin WriteLn('a = '); ReadLn(a); WriteLn('b = '); ReadLn(b); b := b * 100; Randomize; For i := 1 To 30 Do Begin      If Random(2) = 1 Then SunnyDay[i] := True Else SunnyDay[i] := False; End; For i := 1 To 30 Do Begin  If SunnyDay[i] = True ThenBegin    a := a + 2;    If a > b Then    a := b;  End  Else  Begin   a := a - 10;    If a < 0 Then    a := 0;  End;   End; WriteLn('Дни месяца были таковы:'); For i := 1 To 30 Do Begin If SunnyDay[i] = True Then WriteLn(i, '. Солнечный') Else WriteLn(i, '. Пасмурный') End; WriteLn('К концу 30 дня местоположение улитки равно ', a, ' см над землей');End.

1.Само Число: 101001111101110010110100
101001111101110010110101
101001111101110010110111
101001111101110010111111
101001111101110011111111
101001111101110111111111
101001111101111111111111
101001111111111111111111
101011111111111111111111
101111111111111111111111
111111111111111111111111
Последующие десять чисел.
2.Сравните в десятиричной, затем переведите в двоичную.
3.а.1000010011
б.1100010000
в.10111101011
г.1100111001
д.10011011100
е.1110111101
ж.100100100110
з.1011001000
и.1000101011
Могла ошибиться в наборе, так что перепроверьте.
Если не умеете переводить:
делите число на 2
если есть остаток - пишите 1
если нет - 0
повторяете цикл.
По окончанию (от числа должна остаться единица) пишите 1 и переворачиваете число.