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('не пересекаются');
42 = 32+8+2
то есть состоит оно из 2в пятой степени + 2 в третьей + 2 в первой
значит единицы надо ставить во второй (первая степень двоек), четвертый (третья степень двоек) и шестой (пятая степень двоек) разряды
Это писаться будет так:
101010
Ура!)
<span><span><span>Закодируй полученную тобой на основе анализа рисунка информацию знаками на бумажном носителе. ... Опиши состав и действия трех кораблей на рисунке Дай имена и заполни таблицу отличительных признаков.</span></span></span>
Информация — совокупность данных, зафиксированных на материальном носителе, сохранённых и распространённых во времени и пространстве.
Свойства:
Субъективность информации. Информация существует только во взаимосвязи с субъектом, передающим эту информацию и зависит от человеческого сознания.
Достоверность информации. Информация достоверна, если она отражает истинное положение дел. Достоверная информация помогает принять нам правильное решение.
Полнота информации. Информацию можно назвать полной, если ее достаточно для понимания и принятия решений. Неполная информация может привести к ошибочному выводу или решению.
Точность информации определяется степенью ее близости к реальному состоянию объекта, процесса, явления и т. п.
Актуальность информации — важность для настоящего времени, злободневность, насущность. Только вовремя полученная информация может быть полезна.
Полезность (ценность) информации. Полезность может быть оценена применительно к нуждам конкретных ее потребителей и оценивается по тем задачам, которые можно решить с ее помощью.
1. если слово из 2-х букв
var a,b:char;
begin
readln(a,b);
writeln(a,b);
writeln(b,a);
writeln(a,a);
writeln(b,b);
end.
2, если не из двух букв
тут сначала вводится n - максимальная длина слова, а уже потом 2 буквы
var a,b:char;
n:integer;
procedure gen(i:integer;s:string);
begin
if i>n then exit;
if i<>0 then writeln(s);
gen(i+1,s+a);
gen(i+1,s+b);
end;
begin
readln(n);
readln(a,b);
gen(0,'');
end.