1.
<h3>Код (Pascal)</h3>
var
x: integer;
begin
read(x);
writeln((x + 1) div 2);
end.
--------------------
Прикреплён во вложениях.
2.
Давай "перевернём" условие с "НЕ" для понимания:
НЕ (число > 50) = (число <= 50)
- Рассмотрим число 123. Для него не выполняется условие НЕ (123 > 50) и не выполняется условие (123 чётное). Высказывание ложно, число подходит.
- Рассмотрим число 50. Для него выполняется условие НЕ (50 > 50). Высказывание истинно, число не подходит.
- Рассмотрим число 9. Для него выполняется условие НЕ (9 > 50). Высказывание истинно, число не подходит.
- Рассмотрим число 8. Для него выполняется условие НЕ (8 > 50). Высказывание истинно, число не подходит.
- Рассмотрим число 97. Для него не выполняется условие НЕ (97 > 50) и не выполняется условие (97 чётное). Высказывание ложно, число подходит.
Ответ: 123 97
1 дюйм = 2,54 см
По вертикали (сторона 38,1 / 2,54 = 15 дюймов) будет 15 * 600 точек, по горизонтали 15 * 1200 точек, всего 15 * 600 * 15 * 1200 = 162 000 000 точек.
На каждую точку отводится 24 бита = 3 байта, информационный объем файла 162 000 000 * 3 байт = 486 000 000 байт = 463,5 Мб
<span>var</span>
s<span>:</span><span>string</span>;
<span>
{функция проверки на палиндром}</span><span>function</span> palind<span>(</span>s<span>:</span><span>string</span><span>)</span><span>:</span><span>boolean</span>;
<span>var</span>
i<span>:</span><span>integer</span>;
fl<span>:</span><span>boolean</span>;
<span>begin</span>
fl<span>:=</span><span>true</span>;
<span>for</span> i<span>:=</span><span>1</span><span>to</span> length<span>(</span>s<span>) </span><span>div</span><span>2</span><span>do</span>
<span>if</span> s<span>[</span>i<span>]</span><>s<span>[</span>length<span>(</span>s<span>)</span><span>-</span>i<span>+</span><span>1</span><span>]</span><span>then</span>
fl<span>:=</span><span>false</span>;
Result<span>:=</span>fl
<span>end</span>;
<span>{основная программа}</span><span>begin</span>
<span>writeln</span><span>(</span><span>'Введите строку...'</span><span>)</span>;
<span>readln</span><span>(</span>s<span>)</span>;
<span>if</span> palind<span>(</span>s<span>)</span><span>then</span>
<span>writeln</span><span>(</span><span>'Данная строка является палиндромом!'</span><span>)</span>
<span>else</span>
<span>writeln</span><span>(</span><span>'Данная строка НЕ является палиндромом!'</span><span>)</span><span>end</span>.
Без функции:<span>var</span>
s<span>:</span><span>string</span>;
i<span>:</span><span>integer</span>;
palin<span>:</span><span>boolean</span>;
<span>{основная программа}</span><span>begin</span>
<span>writeln</span><span>(</span><span>'Введите строку...'</span><span>)</span>;
<span>readln</span><span>(</span>s<span>)</span>;
fl<span>:=</span><span>true</span>;
<span>for</span> i<span>:=</span><span>1</span><span>to</span> length<span>(</span>s<span>) </span><span>div</span><span>2</span><span>do</span>
<span>if</span> s<span>[</span>i<span>]</span><>s<span>[</span>length<span>(</span>s<span>)</span><span>-</span>i<span>+</span><span>1</span><span>]</span><span>then</span>
fl<span>:=</span><span>false</span>;
<span>if</span> palin <span>then</span>
<span>writeln</span><span>(</span><span>'Данная строка является палиндромом!'</span><span>)</span><span>else</span>
<span>writeln</span><span>(</span><span>'Данная строка НЕ является палиндромом!'</span><span>)</span><span>end</span>.
Да могут ведь например 3м
Логическая схема находится во вложении.
Логическая функция по схеме:
Функция истинна при истинном х₁ и ложном х₂, т.е. в наборе варианта б). Для остальных вариантов она ложна.
Получаем для б) 1, для а), в), г) 0