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 и переворачиваете число.
Объяснение:
1 картинка-жесткий диск,4 картинка-флешка,6-дискета,8-диск,10-диск