Var x1,y1,x2,y2,r:real;
begin
write('Введите x1,y1');read(x1,y1);
write('Введите x2,y2');read(x2,y2);
r:= sqrt(sqr(x2-x1) + sqr(y2-y1));
write('расстояние между двумя точками = ',r);
<span>end.</span>
Ну, раз заменять предложение, то...)
var a: string;
begin
readln(a);
if (a = 'Не то предложение') then a := '...';
writeln(a);
<span>end.</span>
Таблица истинности (смотри прикрепленный скрин)
1) все идет по степеням двойки. Чтоб закодировать число 79, уже надо закодировать 128 чисел = 2^7 = 7 бит
2) 1.5 кб = 1.5*1024*8 бит = 12288 бит
12288 / 3072 = 4 бита на символ
значит мощность 2^4 = 16
3) 8*8=64 возможных варианта или мощность алфавита.
64 = 2^6 -> 6 бит на один ход
Y = 2 × a × b - c; a = 2, b = 6, c = -1,
y = 2 * 2 * 6 - (-1),
y = 4 * 6 - (-1),
y = 4 * 6 + 1,
y = 24 + 1,
y = 25.
Ответ: y = 25.