const
y = 5;
x = 2;
var
x1,x2,y1,y2:integer;
begin
write('x1 = '); readln(x1);
write('y1 = '); readln(y1);
write('x2 = '); readln(x2);
write('y2 = '); readln(y2);
if sqrt( (x1-x) * (x1-x) + (y1 - y) * (y1 - y)) < sqrt( (x2-x) * (x2-x) + (y2 - y) * (y2 - y)) then
writeln('A ближе')
else
if sqrt( (x1-x) * (x1-x) + (y1 - y) * (y1 - y)) > sqrt( (x2-x) * (x2-x) + (y2 - y) * (y2 - y)) then
writeln('B ближе')
else
writeln('Они на одинковом расстоянии');
readln;
end.
var
n:integer;
begin
write('n = ');
readln(n);
if (n mod 10) > ((n div 100) mod 10) then
writeln('Последняя больше второй')
else
if (n mod 10) < ((n div 100) mod 10) then
writeln('Вторая больше последней')
else
writeln('Они равны');
readln;
end.
// Вторая программа
var
n, Pr:integer;
begin
write('n = ');
readln(n);
Pr := 1;
while n > 0 do
begin
Pr := Pr * (n mod 10);
n := n div 10;
end;
writeln('Pr = ', Pr);
if Pr mod 5 = 0 then
writeln('Кратно')
else
writeln('Некратно');
readln;
end.
100dpi => 100*100 точек в квадратном дюйме => 100*100*10*15/2.54 = 590552
590552 * 16 = 9448832 бит = 1181104 байт = 1153 Кбайт => ответ: г) 1151 Кбайт