для данной графической интерпретации запишите: А) единое составное логическое выражение (с использованием логических операторов) в формате одного из языков программирования If <условие> then <действие> else <действие> Б) вложенные логические операторы, содержащие лишь условия сравнения (без использования логических операторов) в формате одного из языков программирования If <условие1> then If <условие2> then <действие1> else <действие2> else <действие3> В) математическую запись в виде системы/совокупности отдельных неравенств, которые принимают значение "истина" тогда и только тогда, когда точка с координатами (x,y) принадлежит заштрихованной области (отдельно для каждого рисунка), и "ложь" в противном случае. P.S. В строгих неравенствах границы не входят в заштрихованную область, и на рисунке такие границы показаны пунктиром вместо сплошных линий. В случае замкнутости фигуры найти значение ее площади (математическими методами).
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 и переворачиваете число.
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.
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 и переворачиваете число.