Var k,i:integer;
begin
k:=0;
for i:=100 to 999 do
if i mod 5 <> 0 then inc(k);
writeln('количество трёхзначных чисел не кратных 5=',k);
readln;
end.
1.Проверяем есть ли скобки если есть то раскрываем.
2.Неизвестные собираем в левой части уравнения, известные в правой части. (при переносе меняем знак с + на - и наоборот).
Результат -x=2-5<span>3.
3.Вычисляем -x=-3 -> x=3.
4.Выводим ответ 3 </span>
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.