Ответ:
Объяснение:
var n:integer;
begin write('введите n - '); readln(n);
if n <> 0 then
write(n * (-1))
else write('знак не может быть изменен');
end.
begin
var a := ArrRandom(10, 1, 10); a.Println;
for var i := 0 to a.High do
if i.isOdd then a[i] *= 2
else a[i] *= 3;
a.Println;
end.
Объявление
Только сегодня действует экспресс скидка на все товары для дома
приобретайте и не пожалеете!
По качественным и низким ценам
Вещи самых известных брендов Италии, России,Франции
Заходите сейчас и получите подарок и скидку!
Ул Пирогова 14
(Можно так)
Сложно очень,попроси учителя чтобы помог
var
x: real;
begin
Write('Введите значение аргумента, не равное нулю: '); Readln(x);
if x = 0 then Writeln('Нулевой аргумент недопустим!')
else Writeln(sqr(x) * abs(1 - x) - 7 / (sqr(x) - 15))
end.
<u>Тестовое решение:</u>Введите значение аргумента, не равное нулю: 24.35
13844.7282626493
