//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
Всего 91 (50 отриц Т+0= 40 полож Т) измерений температуры. Для двоичного кодирования нужно 128 бит, значит на один показатель нужно 7 бит
X - число, которое говорят клоуну. Программа выводит ответ клоуна.
******
program kloun;
var x:integer;
begin
readln (x);
x:=x-7;
x:=x+2;
x:=x-5;
writeln (x);
readln
end.