Третей переменной пусть будет "c"
с:=а {сначала "запоминаем" значение "а" с помощью третей переменной}
а:=в {далее делаем "а" равной "в"}
в:=с {затем "в" делаем равной "с" которая равна первому значению "а"}
Готово
При условии, что в книге символы кодируются 1 байтом, объем текста определяется так: 360*48*64*1/1024=1080 Кбайт
Для 10 иллюстраций остается 2580-1080=1500 Кбайт
На 1 иллюстрацию 150 Кбайт
Объем памяти для хранения 1 пикселя изображения:
150*1024/(480*160)=2 байта = 16 бит
Количество оттенков = 2^16=65536
Это решение при задании вручную этих чисел:
Program sadadasf;
var i,k,l: integer;
begin
Writeln('Введите первое целое двухзначное число:');
readln(i);
Writeln('Введите второе целое двухзначное число:');
readln(k);
If k>i then begin
k:=k*k;
i:=i*2;
end;
If i>k then begin
i:=i*i;
k:=k*2;
end;
Writeln('Первое число:', i);
Writeln('Второе число:', k);
end.
<span>
Это решение при задании чисел в самой программе:
Program sadadasf;
var i,k,l: integer;
begin
i:=5;
k:=3;
If k>i then begin
k:=k*k;
i:=i*2;
end;
If i>k then begin
i:=i*i;
k:=k*2;
end;
</span>Writeln('Первое число:', i);
Writeln('Второе число:', k);<span>
end.</span>
Предположим что отрезок будет равен X см тогда зная координату точки можно узнать будет ли точка принадлежать отрезку надо просто длинна отрезка минус значение координаты
program zadacha;
var x1,y1,x2,y2,x3,y3,a,b: real;
begin
writeln('Введите координаты x1,y1');
readln(x1,y1);
writeln('Введите координаты x2,y2');
readln(x2,y2);
writeln('Введите координаты x3,y3');
readln(x3,y3);
a:=(y1-y2)/(x1-x2);
b:=((y1+y2)-a*(x1+x2))/2;
if (y3 = a*x3+b) and (x3 > x1) and (x3 < x2) or (y3 = a*x3+b) and (x2 > x1) and (x3 < x1)
then writeln('Точка принадлежит отрезку')else writeln('Точка не принадлежит отрезку')
end.
Л - 2
и - 3
с - 4
а - 5
пробел - 6
с - 7
ъ - 8
е - 9
л - 10
а - 11
пробел - 12
К - 14
о - 15
л - 16
о - 17
б - 18
к - 19
а - 20
(если с точкой - 21)