1)
program test;
var number: integer;
begin
write('Enter the number: ');
readln(number);
number:=abs(number)-2;
writeln(number);
readln;
end.
2)
program test;
var number, temp: integer;
begin
write('Enter the number: ');
readln(number);
temp:=number mod 10;
writeln(temp, '^2=', temp*temp);
readln;
end.
(A+B*C)=1
Or - оператор эквивалентный сложению
And - умножению
Первое задание:
Загрузил решение скрином.
Алгоритм простой, ищем в каждой строке самое большое число по модулю, а потом в той-же строке меняем его на противоположное.
Второе задание:
Загрузил решение скрином.
Ну а тут просто обычная проверка координат, если введёная пользователем координата равна 1, то увеличиваем её на 1, если 2 или 0, то просто ничего не трогаем.
ПКМ (Правая кнопка мыши) или левая - если мышь для левшей.
Ответ:
Содержание статьи. CD (Compact Disk) – оптический диск, предназначенный для хранения цифровой информации, запись и считывание которой осуществляет лазерная установка. Распространены стандартные CD емкостью до 700 Мб. DVD – оптический диск повышенной, по сравнению с CD, емкости (может иметь объем 4,7 Гб, 8,5 Гб, 9,4 Гб, 17 Гб).
Объяснение: