1) if b<>0 then
begin
y:=-c/b ;
writeln('(0;',y,')');
end
else writeln('такой точки нет');
2) if a<>0 then
begin
y:=-c/a ;
writeln('(',x,'0)');
end
else writeln('такой точки нет');
3) 4) аналогично для коэффициентов <span> d, e, f</span>
5) if (bd-ae)<>0 then
begin
x:=(-f*b+e*c)/(b*d-a*e);
y:=(-c-a*x)/b;
writeln('(',x,';',y,')');
end
else writeln('не пересекаются');
Читаем N
считаем кол-во в каждом слою и выводим на экран
считаем кол-во всего и выводим на экран
1. Источник - светофор, приёмник - вы.
2. Обмен информацией. Поочередно то компьютер источник, вы - приёмник, то наоборот.
3. Телевизор - источник, члены семьи - приёмники.
4. Вы любуетесь цветами, растущими на клумбе. Цветы - источники, вы - приёмник.
Begin
if n > 1 then
decTo5(n div 5);
write(n mod 5);
end;
var
n: integer;
begin
write('n = ');
readLn(n);
if (n > 0) then
decTo5(n)
else
writeLn('Error, n must > 0!');
writeLn;
end<span>.
Извини меня если не правильно. Вроде так.
</span>