Ответ:
Я разбили это задание на четыре номер и во втором вы дали не полное условия
Когда ты присваиваешь переменной какое-то значение ты меняешь содержание переменной
Pascal
var
x,y : integer;
begin
readln (x,y);
if (x=0) or (y=0)
then
begin
if x = 0 then
writeln ('Точка лежит на оси y');
if y = 0 then
writeln ('Точка лежит на оси x')'
end
else
begin
if (x>0) and (y>0) then
writeln ('Точка находится в первой четверти');
if (x<0) and (y>0) then
writeln ('Точка находится во второй четверти');
if (x<0) and (y<0) then
writeln ('Точка находится в третей четверти');
if (x>0) and (y<0) then
writeln ('Точка находится в четвертой четверти');
end;<span>
end.</span>
Program n1;
var a,sum: integer;
begin
readln(a);
sum:=0;
while (a<>0) do
begin
if(a mod 6=0) and (a mod 10=6) then sum:=sum+a;
readln(a);
end;
writeln(sum);
end.
(n)-основание системы счисления, ^ - степень (разряд) числа, 100101 (2)=1*2^5+0*2^4+0*2^3+1*2^2+0*2^1+1*2^0=32+0+0+4+0+1= 37 (10)