Question

7. Напишите текст программы (любой язык программирования) для решения следующей задачи на ПЭВМ: С клавиатуры вводится строка типа aХ=b (например: 3Х=6 или 0.2Х=-89). Определить Х.

Answer 1

//Pascal ABC.NET 3.1 сборка 1256

Var
 s:string;
 a,b:real;
begin
readln(s);
a:=strtofloat(copy(s,1,pos('X',s)-1));
b:=strtofloat(copy(s,pos('=',s)+1,length(s)-pos('=',s)));
if (a=0) and (b=0) then
 begin
  writeln('X-любое действительное число');
  exit;
 end
 else
if a=0 then
  begin
  writeln('Нет корней');
  exit;
 end;
writeln(b/a);
end.

Пример ввода:
-0.1X=10
Пример вывода:
-100