Сначала переведем В в восьмеричную систему.
2034 (5) = 415 (8)
415 (8) + 327 (8) = 744 (8)
Переведу результат в двоичную систему.
744 (8) = 111100100 (2).
111111+2>1111+8 6+16<101001-2 55-16<125-8
Program n1;
var d:integer; a:real;
begin
writeln('Введите d ');
readln(d);
if d <= (-30) then
a:= d/10;
if d <20 then
a:= (-2)*d+1;
if d >20 then
a:= sqr(d-1);
writeln(a);
readln
end.
================================
program n2;
uses crt;
var pr:boolean;
begin
writeln('* Введите номер месяца *');
pr:=false;
writeln('Сделайте выбор четверти');
writeln('1. 1 четверть');
writeln('2. 2 четверть');
writeln('3. 3 четверть');
writeln('4. 4 четверть');
writeln('5. Выход');
repeat
case readkey of
'1':writeln('Сентябрь | Октябрь');
'2':writeln('Ноябрь | Декабрь');
'3':writeln('Январь | Февраль | Март');
'4':writeln('Апрель | Май ');
'5':pr:=true;
end;
until(pr);
writeln('Конец.');
readln
end.
У вас указана информационная ёмкость картинки, указаны размеры картинки.
4 Кбайта = 4*8 Кбита = 32 Кбита = 2^5 Кбит = 2^15 бит
Точек в картинке
32 * 1024 = 2^5*2^10 = 2^15
И теперь мы видим, что памяти хватит только на чёрно-белую картинку, с глубиной цвета 1 бит на пиксель.
Цветов получается 2 - белый и чёрный. Нет, могут быть и другие, но всё равно их только 2, больше одним битом не закодировать, если не применять алгоритмы сжатия.
// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
var
n,k,nmax:integer;
begin
nmax:=-1;
repeat
Read(n);
if n<>0 then begin
if n mod 7 = 0 then begin
if n>nmax then begin k:=1; nmax:=n end
else
if n=nmax then Inc(k)
end
end
until n=0;
Writeln('Число ',nmax,' встретилось ',k,' раз(а)')
end.
<u><em>Тестовое решение:</em></u>
8 11 5 7 4 23 14 82 51 14 23 17 0
Число 14 встретилось 2 раз(а)