Уууу...
Да это же примеры с двоичным кодом, попробуй расшифровать цифры 1 и 0 в цифры "человеческие"))
Чтобы это сделать надо знать кодировку знаков в двоичном коде
Program testabc;
var x,y,z:real;
i:integer;
begin
i:=0;
writeln('Введите 3 числа: ');
readln(x,y,z);
if x<0 then i:=i+1;
if y<0 then i:=i+1;
if z<0 then i:=i+1;
Writeln(i,' отрицательных');
<span>end.</span>
ax=b
x=b/a
Алгоритм решения такого уравнения: Делим А на число В.
Программа в паскале:
var
a,b,x:real;
begin
readln(a);
readln(b);
if b=0 then begin
write('net resheniy');
exit;
end;
x:=a/b;
writeln(x);
end.