Program n;
uses crt;
var i:integer;
begin
for i:=-10 to 10 do writeln(i:4, abs(i):4);
<span>end. </span>
1)uses crt;
var a,b:integer;
begin
readln(a);
readln(b);
if ((a>0) and (b>0)) or ((a<0) and (b<0)) then writeln('Имеют одинаковые знаки');
if ((a>0) and (b<0)) or ((a<0) and (b>0)) then writeln('Имеют разные знаки');
if (a=0) or (b=0) then writeln('Некорректно');
end.
2) какой именно коэффициент?
Первичный был:
D:\Документы\Фото\2011\Весна
Дальше поднялся на три уровня вверх и оказался в D:\Документы дальше спустился в D:\Документы\Экзамены\Информатика. Вот полный путь
<span>Х = А*(В + !С) + А*!В
= A*B + A*!C + A*!B = A*(B + !B) + A*!C = A*1 + A*!C = A*(1 + !C) = A</span>
Первое задание:
Загрузил решение скрином.
Алгоритм простой, ищем в каждой строке самое большое число по модулю, а потом в той-же строке меняем его на противоположное.
Второе задание:
Загрузил решение скрином.
Ну а тут просто обычная проверка координат, если введёная пользователем координата равна 1, то увеличиваем её на 1, если 2 или 0, то просто ничего не трогаем.