Наливаем в 9 литровое. Из него переливаем в 5 литровое. в 9 литровом останется 4 литра. Выливаем из 5 литрового воду и переливаем туда эти 4 литра. Затем набираем в 9 литровое снова воду и выливаем 1 литр в 5 литровое, т.к. там уже есть 4 литра. В 9 литровом останется 8 литров. Выливаем всю воду из 5 литрового и переливаем из 9 литрового 5 литров. В 9 литровом останется 3.
<span>может быть так:
</span>var x1,x2,y1,y2:integer;
a,b:real;
begin
write ('Введите x1 и x2: ');
readln (x1,x2);
write ('Введите y1 и y2: ');
readln (y1,y2);
a:=sqrt (sqr (x1) + sqr (y1));
b:=sqrt (sqr (x2) + sqr (y2));
if a>b then writeln ('1-я точка ближе')
else writeln ('2-я точка ближе');
end.
10-8
а) 513=1001
б) 600=1130
в) 2010=3732
10-16
а) 513=201
б) 600=258
в) 2010=7DA
Const n = 15;
var a: array[1..n] of integer;
i, j, m: integer;
begin
// генерация и вывод
randomize;
for i := 1 to n do a[i] := Random(19)-8;
for i := 1 to n do write(a[i], ' ');
writeln;
// Сортировка
for i := 1 to n-1 do begin
m := i;
for j := i+1 to n do
if a[j] < a[m] then m := j;
if m <> i then begin
j := a[m];
a[m] := a[i];
a[i] := j;
end;
end;
for i := 1 to n do write(a[i], ' ');
writeln;
// поиск наибольшей разности
m := a[2] - a[1];
for i := 3 to n do
if a[i] - a[i-1] > m then
m := a[i] - a[i-1];
writeln ('разность = ', m);
<span>end.</span>
A) функция print не имеет ()
б) Ошибка, нет српвнения, нет then
в) нет if, ошибка
г) ошибка в теле условия( ошибка в присваивании )