Объяснение:
& не ставится у меня, но выполняет свои действия, у себя его ставьте!
Для хранения информации о цвете точки в черно-белом изображении без градаций серого требуется один бит. Следовательно всего понадобится 1 * 50 * 50 бит = 2500 бит
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
Program kol_vo_elementov;
var a:real;
begin
writeln('Введите число');
readln(a);
a:=sqr(a);
writeln('a=',a);
end.