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
<span>2^23 бит= 2^10*2^10*2^3 бит = 2^10 * 2^10 байт = 2^10 Кбайт = 1 Мбайт</span>
Допустим, мы выбрали число 26
1. 26*26=676
2. 676+26+26=728
3. 728/26=28
4. 28-26=2
В ответе всегда будет получаться число 2 из-за того, что во втором пункте мы дважды прибавляем задуманное число
Посредством SQL запросов, как и в обольшенсве баз данных
Программа напишет -1
program alg;
uses Crt;
var a,n: integer;
begin
ClrScr;
a:=1;
for n:= 1 to 4 do
a:=a+2-n;
if a>0 then
a:=a+10;
writeln (a);
ReadLn;
end.