Данная задача решается подстановкой значений одних переменных в другие,следуя линейному алгоритму:
a=x , b=y
1) a:=a+b = x+y
2) b:= b-a = y-(x+y) = y-x-y=-x
3) a:= a+b = x+y+(-x) = x+y-x=y
4) b:=-b=-(-x)=x
Итог: а = y, b = x
Верный ответ а) y,x
Проверьте то, что вы написали
В 4) непонятно
В 5 литровый набираешь воду и выливаешь в 9 литровый.
В 5 литровый снова набираешь воду и выливаешь в 9 литровый сколько влезет. 9 литровый получается полный, а в 5 литровом остается 1 литр.
Из 9 литрового выливаешь всю воду и выливаешь в него 1 литр из 5 литрового.
В 5 литровый набираешь воду и выливаешь в 9 литровый.
В 9 литровом получается 6 литров воды.
Var a: integer;
begin
//пред условие
read(a);
while a <> 0 do
begin
writeln('*');
read(a);
end;
end.
=====================
var a: integer;
begin
//пост условие
repeat
writeln('*');
read(a);
until a=0
end.
Var
eval: array[1..35] of byte;
i, good: integer;
sr: real;
begin
good := 0;sr := 0;
for i := 1 to 35 do
begin
write(i, '.) ');readln(eval[i]);
sr := sr + eval[i];
if eval[i] = 5 then inc(good);
end;
sr := sr / 35;
writeln('Всего пятерок: ', good);
writeln('Средний бал: ', sr:0:2);
end.