Обнаружение, удаление или обезвреживанте вирусов.
var y,x:real;
begin
write('Введите x = ');
readln(x);
if (x<=0) then y:=exp(x) else if x>1 then y:=ln(x) else y:=0;
writeln('y = ',y:0:2);
end.
Var i:integer;
begin
//Первый способ
for i:= -10 to 10 do
begin
writeln('При x = ', i, ' y = ', 3*i-5*i*i);
end;
//Второй способ
i:= -10;
while(i <= 10) do
begin
writeln('При x = ', i, ' y = ', 3*i-5*i*i);
i:= i + 1;
end;
end.
1. A2=144/12/12=1; B2=144/12*2=24
2. A2=144/(12*12)=1
3. 0, так как на 0 делить нельзя.