для данной графической интерпретации запишите:А) единое составное логическое выражение (с использованием логических операторов) в формате одного из языков программированияIf <условие> then <действие> else <действие>Б) вложенные логические операторы, содержащие лишь условия сравнения (без использования логических операторов) в формате одного из языков программированияIf <условие1> thenIf <условие2> then <действие1>else <действие2>else <действие3>В) математическую запись в виде системы/совокупности отдельных неравенств, которые принимают значение "истина" тогда и только тогда, когда точка с координатами (x, y) принадлежит заштрихованной области (отдельно для каждого рисунка), и "ложь" в противном случае.P.S. В строгих неравенствах границы не входят в заштрихованную область, и на рисунке такие границы показаны пунктиром вместо сплошных линий.В случае замкнутости фигуры найти значение ее площади (математическими методами
Ответы
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.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Ребят, help. (Можно с решением молю)
Автор: MislitskiiSergei1403
Расшифровать текст пользуясь методом перестановки
Автор: olgolegovnak
Задано число x. вычислите s: s = cos x - sin x + |x-7| + x2-1
Автор: libirishka7910
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 и переворачиваете число.