Побудувати математичну модель задач.
Задача 1. Іван Петрович у нових штанах сів на щойно пофарбовану табуретку. На його штанах з'явилась квадратна пляма з довжиною сторони a см. Виявилось, що в хімчистку беруть одяг, плями на якому не більші n см2. Визначити, чи вдалось Іванові Петровичу врятувати свої штани?
Задача 2. На одному маленькому квадратному безлюдному острові зі стороною a метрів перебували k Робінзонів. Чи не порушені їх права на житло, якщо на кожного Робінзона повинно припадати n м2 площі острова?

1. 
var 
n,i,k,sum,g:integer;

begin
readln(n);
g:=n;
while n<>0 do begin
 g:= g div 10;
 k +=1;
end;

for i:=1 to k do begin
g:= n mod 10;
sum:= sum + g;
n:=n div 10;
end;
if sum> 10 then
writeln('верно')
else
('неверно');
end.

2.
var 
n,i,k,p,h,g:integer;

begin
readln(n);
g:=n;
while n<>0 do begin
 g:= g div 10;
 k +=1;
end;
p:=n mod 10;
n:=n div 10;
for i:=1 to k-1do begin
g:= n mod 10;
if g = p then
 h += 1;
n:=n div 10;
end;
writeln(h);
end.

3.
const
n=10;
var

a:array[1..n]of integer;
i,sum:integer;

begin
a[n]:=0;
for i:=1 to 9 do
readln(a[i]);

for i:=1 to n do 
 sum:=sum+a[i];
writeln(sum);
end.

4.
var

n:integer;

begin

readln(n);

while n<>0 do begin
n:=n div 10;
k += 1;
end;
if k = 4 then
writeln('число четырехзначное')
else
writeln('число не четырехзначное');
end.

5.
var

a:array[1..10]of integer;
i:byte;

begin

for i:=1 to 10 do
readln(a[i]);

for i:=1 to 10 do begin
 if a[i] = 2 then
writeln('да есть');
break;
end;
end.

1) При использовании 16384 цветов для хранения одной точки требуется log(2)16384 = 14 бит. Количество точек рисунка = 9696*8 / 14 ≈ 5540

2) При использовании палитры из 65536 цветов для хранения одной точки требуется log(2)65536 = 16 бит = 2 байта. Объем видеопамяти = 1024*768*2 байт = 1024*768*2/1024 Кбайт = 1536 Кбайт = 1536/1024 Мбайт = 1,5 Мбайт

3) При использовании палитры из 16 цветов для хранения одной точки требуется log(2)16 = 4 бита. Необходимый объем видеопамяти = 640*480*4 бит = 640*480*4/8 байт = 320*480 байт = 320*480/1024 Кбайт = 150 Кбайт. ответ: 256 достаточно для работы